Program n_1;
var a, b: integer;
begin
randomize;
a:=random (1000) + 1;
while a <> b do begin
write ('Введи число!!!');
readln (b);
if b > a then writeln ('Перебор!!!')
else if b < a then writeln ('Маловато будет...')
end;
writeln ('Молодец! Угадал!');
readln();
end.