Заочна олімпіада з інформатики.
	Хмельницька область 2002 - 2003
		Тур 0 
	4.11.2002 - 14.11.2002

Розв'язки приймаються і аналізуються за адресою vasilich@kp.km.ua
до 24.11.2002. 
Тема листа: TUR0
Питання щодо умов задач можна надсилати на vasilich@kp.km.ua
до 24.11.2002 включно.
На перевірку задач буде відведено час в 2 рази більший за час роботи
авторських розв'язків.

	P1T0 (30 балів)
Дано два цілих числа М і N.
Обчисліть суму всіх цілих чисел від меншого до більшого з даних чисел
(включно).
Вхідні дані: перший рядок - число М (-2000000000 < M < 2000000000);
             другий  рядок - число N (-2000000000 < N < 2000000000).
Вихідні дані: відповідне число.
Приклад вхідних даних:			Приклад вихідних даних:
1					3
2

	P2T0 (70 балів)

	В місті Безвиграшне раз в тиждень організовують таку
інтелектуальну лотерею програмістів:
1) протягом тижня програмісти міста телефонують до організаторів
лотереї;
2) випадковим чином вибираються і запрошуються в студію претендентів на
головний приз;
3) з кожним претендентом окремо проводять розіграш описаний в пунктах
   4) та 5) та 6);
4) в лототрон закладають 1000) пронумерованих куль з номерами
від 1 до 1000;
5) робот GIRL достає 1000 разів випадковім чином кулі з барабана,
а програма претендента на виграш вгадує номер кожної кулі;
6) доки програма претендента не назве правильно номер кулі, наступна
куля не виймається з лототрона.
7) головний приз дістається тому претенденту, програма якого витратить
на відгадування всіх номерів  найменшу сумарну кількість запитів.

Напишіть програму для портативного комп'ютера гравця, яка буде
створювати запити.

Програмістам, що пишуть на мові Pascal буде надано модуль GIRL.TPU,
в якому буде реалізована така функція:
	FUNCTION Zapyt(Number:Integer):Integer
Програмістам, що пишуть на мові С++ буде надана бібліотека GIRL. H,
в якій буде реалізована така функція: int zapyt( int Number)

Функція повертає   1, якщо число в запиті більше номера кулі.
Функція повертає -1, якщо число в запиті меньше номера кулі.
Функція повертає   0, якщо число в запиті дорівнює номеру кулі.

Наведений нижче приклад правильний, але не дає виграшного результату:

   USES GIRL; 
   VAR   i,j : Integer;
   BEGIN    
                   For i : = 1 to 1000 do 
                     For j: = 1 to 1000 do 
                      If  Zapyt(j)=0 Then Break;
   END.