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

Question

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

Answer 1

Uses crt;
var a,n,k:integer;
begin
randomize;
a:=random(99);
k:=0;
repeat
inc(k);
readln(n);
if a>n then writeln('больше');
if aif a=n then writeln('угадано');
until (n=a) or (k=10);
end.

Comments

Это не совсем то, что надо. Мы не прошли repeat и randomize