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

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

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

var a, b, i:integer;
begin
  a:=5;
  writeln('Ygadaite 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('Pobeda!');
       break
    end else
       writeln('Ne Ygadali!');
  end;
  if (b<>a) then
  writeln('Igra okonchena!');
  readln();
end. 

Консоль:

Ygadaite chislo ot 1 do 10 s treh popytok
Popytka nomer 1 vashe chislo:
1
Ne Ygadali!
Popytka nomer 2 vashe chislo:
2
Ne Ygadali!
Popytka nomer 3 vashe chislo:
3
Ne Ygadali!
Igra okonchena!