Задача 2 Урок 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
  writeln('vvedite ugadivaemoe chislo');
  readln(a);
  writeln('ugadaite chislo s 3x popitok');
  for i:=1 to 3 do
     begin
       writeln('popitka nomer  ' ,i, ' vvedite chislo');
       readln(b);
          if (b = a) then
            begin
              writeln('vi ugadali s popitki nomer  ',i);
              break;
            end
          else
              writeln('you lose');
     end;
  writeln('game over!');
  readln();
end.