program ugadayka;
uses crt;
var
zagadka,mnenie,popytki:integer;
knopochka:char
begin
clrscr;
randomize;
popytki:=0;
mnenie:=0;
zagadka:=int(rnd*100);
while not mnenie=zagadka do
begin
popytki:=popytki+1;
writeln('Попытка номер ',popytki,'.');
write('Как ты думаешь, какое число загадано? ');
readln(mnenie);
if zagadka>mnenie then writeln('Нет, загаданное число больше!')
else writeln('Нет, загаданное число меньше!')
end;
writeln('Поздравляю! Ты угадал число с попытки номер ',popytki,'. Оно действительно равно ',zagadka,'.');
knopochka:=readkey
end.