Составьте программу (в Pascal) "Угадай". Программа задумывает случайное число в диапазоне от 0 до 99.

Программа задумывает случайное число в диапазоне от 0 до 99. После каждой попытки играющего прога выводит сообщение "больше", "меньше", "угадано". Дается 10 попыток. Программа завершается, если дан правильный ответ или попытки закончились.

Program ugadai;

uses crt;

var

i, z, o:integer;

begin

randomize;

writeln ('Введите число от 0 до 99:');

z:=random (100);

for i: = 1 to 10 do

begin

read (o);

if (o = z) then

begin

writeln ('Вы угадали!');

break;

end else begin

if (i = 10) then begin

writeln ('Жалко, но число не отгаданно. Загаданное число было ', z);

end else begin

writeln ('Упс! У вас еще ',10 - i,' попопыток. Введите число:');

end;

end;

end;

end.