uses crt;
var number,partner:integer;
label 1;
begin;
clrscr;
writeln('Первый игрок, введите число');
readln(number);
clrscr;
writeln('Второй игрок, ваш ход');
1:
readln(partner);
IF partner > number THEN
 begin
 writeln ('меньше'); GOTO 1;
 end;
IF partner < number THEN
 begin
 writeln ('больше'); GOTO 1;
 end;
IF partner = number THEN
 begin
 writeln ('Вы угадали'); halt;
 end;
end.