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

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

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

Решение:

var a, b, i:integer;
begin
  a:=5;
  for i:=1 to 3 do
  begin
    writeln('popitka N ', i, ' vashe chislo:' );
    readln(b);
    if (b = a) then
    begin
       writeln('pobeda s popytki:', i);
       break
    end else
       writeln('ne ugadaly!');
  end;
  if(a <> b) then
    writeln('igra okonchena!');
  readln();
end. 

Консоль:

popitka N 1 vashe chislo:
6
ne ugadaly!
popitka N 2 vashe chislo:
5
pobeda s popytki:2