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

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

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

var a, b, i:integer;
begin
  writeln('Vvedite chislo kotoroe nyzhno ygadat:  ');
  readln(a);

  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! Popytka nomer ', i);
       break
    end else
       writeln('Ne Ygadali!');
  end;

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

Консоль:

Vvedite chislo kotoroe nyzhno ygadat:
5
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:
5
Pobeda! Popytka nomer 3
Igra okonchena!