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

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

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

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