Урок 10.2 Задание 3

Задание 3 Урок 10.2

В примере №2 есть код

var a, b, i:integer;
begin
  a := 5;
  writeln('Угадайте число от 1 до 10 с трех попыток');
  for i:=1 to 3 do
  begin
    writeln('Попытка №', i, ' выше число:' );
    readln(b);
    if (b = a) then
    begin
      break
       writeln('Победа!');
       
    end else
       writeln('Не угадали!');
  end;
 
  writeln('Игра окончена!');
  readln();
end. 

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

var a, b, i:integer;
begin
  a := 5;
  writeln('Угадайте число от 1 до 10 с трех попыток');
  for i:=1 to 3 do
  begin
    writeln('Попытка №', i, ' выше число:' );
    readln(b);
    if (b = a) then
    begin
       break;
       writeln('Победа!');
       
    end else
       writeln('Не угадали!');
  end;
 
  writeln('Игра окончена!');
  readln();
end. 

Консоль:

Угадайте число от 1 до 10 с трех попыток
Попытка №1 выше число:
7
Не угадали!
Попытка №2 выше число:
4
Не угадали!
Попытка №3 выше число:
5
Игра окончена!