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

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

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

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

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

Перепишите этот код так, чтобы:
Можно было бы задать угадываемое число (пусть его вводит пользователь)
Если пользователь все же угадал число - напишите в сообщении о победе с какой именно попытки ему это удалось.

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

Вывод в консоли:

Задайте число: 7
Угадайте число с трех попыток
Попытка № 1 ваше число: 5
Не угадали!
Попытка № 2 ваше число: 1
Не угадали!
Попытка № 3 ваше число: 7
Победа! Вы угадали число с 3 попытки
Игра окончена!