НАПИСАТЬ ПРОГРАММУ.


Угадай число. Один из партнеров вводит в программу число, а второй должен отгадать это число. Причем на каждый предложенный вариант программа отвечает либо «больше», либо «меньше» до тех пор, пока число не будет отгадано. Вывести количество попыток, которое было сделано.

var a,i,b:integer;begin  writeln('Введи число');  readln(a);  writeln('Уадай');  while a<>b do  begin  readln(b);  if a<b then    begin writeln('Меньше'); i:=i+1; end  else   if a>b then   begin writeln('Больше'); i:=i+1; end;  end;  writeln('Попыток было:', i)end.