Программа генерирует случайное двухзначное число до тех пор пока не найдется нечетное число - Free Pascal

Формулировка задачи:

Программа генерирует случайное двухзначное число до тех пор пока не найдется нечетное число. После чего на экран выводится количество попыток генерации.

Решение задачи: «Программа генерирует случайное двухзначное число до тех пор пока не найдется нечетное число»

Листинг программы

Var
  n,k: Integer;
BEGIN
n:=0;
While not Odd(n) do
begin
  n:=Random(90)+10;
  Writeln(n);
  k:=k+1;
end;
Writeln('Количество попыток: ',k);
Readln
END.

Объяснение кода листинга программы

Объявлены две переменные типа Integer - n и k, и инициализированы нулевыми значениями.
Запускается цикл while, который будет выполняться до тех пор, пока значение переменной n не станет нечетным числом.
Внутри цикла генерируется случайное двузначное число путем прибавления 10 к результату функции Random(90).
Сгенерированное число выводится на экран.
Переменная k увеличивается на единицу после каждой итерации цикла.
После выхода из цикла выводится сообщение с количеством попыток.
Программа ожидает ввода пользователя для завершения работы.