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.
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.