Question

program faceyourseif;
var
x:integer;
k:integer;
begin
x := Random(100);
writeln('Компьер загадал число от 0 до 100');
writeln('Попробуйте его угадать');
repeat
begin
writeln('Введите число');
read(k);
if k > x then
writeln('Не угадали! Загаданное число меньше');
if k < x then
writeln('Не угадали! Загаданное число больше');
if k = x then
writeln('Поздравляю,вы угадали!
end;
until false;
end.

Как сделать,чтоб было 3 или более попытки ?Не закрывая консоль

Answer 1

Program faceyourseif;
var x,k,i:integer;
    g:boolean;
begin;
  x := Random(100);
  writeln(x);
  writeln('Компьер загадал число от 0 до 100');
  writeln('Попробуйте его угадать');
  repeat
    writeln('Введите число');
    read(k);
    if k > x then
      writeln('Не угадали! Загаданное число меньше');
    if k < x then
      writeln('Не угадали! Загаданное число больше');
    if k = x then begin;
      writeln('Поздравляю,вы угадали!');
      g:=true;
    end;
    i:=i+1;
   until g or (i=3);
end.