Question

СРОЧНО! Напишите задачу на паскаль.
1. Вывести
все четные числа от 0 до n (n вводится с клавиатуры)

Answer 1

var i,N:integer;
begin
readln(N);
for i:=1 to N do begin
if (i mod 2= 0)
then
write(i,' ');
end;
end.