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

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

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

var a, b, i:integer;
begin
  writeln('vvedite chislo');
  readln(a);
  writeln('Ygadayte chiclo ot 1 do 10 c 3-x popitok');
  for i:=1 to 3 do
  begin
    writeln('Popitka', i, 'visje chislo:' );
    readln(b);
    if (b = a) then
    begin
       writeln('Pobeda! C ',i,'popitki');
       break
    end
    else
       writeln('He ygadali!');
  end;
  if (a<>b) then
  writeln('Proigral!');
  readln();
end.