урок 10.2 задание 2

урок 10.2 задание 2

В примере №2 есть код, который описывает программу угадывания числа с трех попыток. Перепишите этот код так, чтобы

:

program dzshka;
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('Победа!количество потраченых попыток  ');
       break
       writeln(i);
    end else
       writeln('Не угадали!');
  end;

  writeln('Игра окончена!');
  readln();
end.