Составьте программу выводящую на экран все чётные числа из интервала - Turbo Pascal

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

Составьте программу выводящую на экран все чётные числа из интервала [A...B].

Решение задачи: «Составьте программу выводящую на экран все чётные числа из интервала»

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

Program Title;
Var i, A, B :Integer;
Begin
WriteLn('Введите первое число из интервала');
ReadLn(A);
WriteLn('Введите последнее число из интервала');
ReadLn(B);
For i:=A to B do
 begin
        if i mod 2=0 then
          Write(' ',i);
  end;
ReadLn
End.

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

В данном коде на языке Turbo Pascal происходит следующее:

Программа запрашивает у пользователя ввод первого и последнего чисел из интервала с помощью функции ReadLn.
Затем, в цикле от A до B (где A и B - введенные пользователем числа) происходит проверка на четность числа i с помощью оператора mod.
Если число i четное, то оно выводится на экран через функцию Write с пробелом перед числом.
После завершения цикла, программа завершается вызовом функции ReadLn. Таким образом, программа выводит на экран все четные числа из заданного интервала.