Урок 10.2 Задача 3

Урок 10.2 Задача 3

В примере №2 есть код, перепишите его таким образом, чтобы сообщение "Игра окончена" выводилась, только если пользователь не угадал загаданное число.

Написать программу, где пользователь угадывает число (можно задать литералом) из диапазона от 1 до 10 за 3 попытки

var a, b, i:integer;
begin
  writeln('zagadaite chislo ot 1 do 10: ');
  readln(a);
  writeln('Ugadaite chislo ot 1 do 10 s treh popytok');
  for i:=1 to 3 do
  begin
    writeln('Popytka nomer ', i, ' vashe chislo: ' );
    readln(b);
    if (b = a) then
    begin
       writeln('Vy pobedili c ', i, ' popytki');
       break
    end else
       writeln('Poprobui eshe raz!');
  end;
  if not (a=b) then
    writeln('Igra okonchena!');
  writeln('Konec!');
  readln();
end.