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

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

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

Решение:

var a, b, i:integer;
begin
  writeln('vvedite ugadyvaemoe chislo');
  readln(a);
  writeln('ugadayte chislo ot 1 do 10 s treh popytok');
  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;

  writeln('igra okonchena!');
  readln();
end.                         

Консоль:

vvedite ugadyvaemoe chislo
5
ugadayte chislo ot 1 do 10 s treh popytok
popitka N 1 vashe chislo:
2
ne ugadaly!
popitka N 2 vashe chislo:
5
pobeda s popytki:2
igra okonchena!