Вывести на экран все четные числа от 1 до n
Паскаль

Предыдущий
вопрос Следующий
вопрос

program PrintEvenNumbers;

var
n, i: integer;

begin
write('Enter the value of n: ');
readln(n);

writeln('Even numbers from 1 to ', n, ' are:');

for i := 1 to n do
begin
if i mod 2 = 0 then
writeln(i);
end;
end.