Задача 2(2.1;2.2;3) Урок 10.2

Задача 2 Урок 10.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.

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

Решение:

var a,b,i:integer;
begin
  writeln('Vvedite chislo'); //Устанавливаем число которое нужно угадать
  readln(a);
  writeln('ugadayte chislo ot 1 do 10 s 3eh popitok');
  for i:=1 to 3 do
    begin
      writeln('Popitka #', i, ' vishe chislo:' );//выводим с номером попытки
      readln(b);
      if (b = a) then
      begin
        writeln('Pobeda s ',i,' popitki');
        break
      end else
            writeln('Ne ugadali!');
    end;
  if ((b<>a) AND (i=3)) then
    writeln('Igra okonchena!'); //вывод только в случае трех неудачных попыток

  readln();
end.