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

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

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

program u10_2z2;
var a,b,i:integer;
begin
  writeln('zagadaite chislo');
  readln(a);
  for i:=1 to 3 do
  begin
     writeln('ygadaite chislo ', i ,' popitka');
     readln(b);
     if (b = a) then
      begin
       writeln('vi ygadali');
       writeln('pobeda',i,'popitka');
       break;
      end
     else
       writeln('ne ygadali, eshe probyi ');
  end;
 readln();
end.