«Угадай число» (программа Паскаль)

Question

«Угадай число»

Answer 1

program z5;
var comp: integer;
igrok : integer;
begin
randomize;
comp:=random(100);
 repeat
write ('Введите число');  read (igrok);
if igrok > comp then writeln ('Слишком много…')
else if igrok<comp then writeln ('Слишком мало…')
else writeln ('Вы угадали! ');
until igrok=comp;
end.