Составьте программу (в 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.