program PrintEvenNumbers;
varn, i: integer;
beginwrite('Enter the value of n: ');readln(n);
writeln('Even numbers from 1 to ', n, ' are:');
for i := 1 to n dobeginif i mod 2 = 0 thenwriteln(i);end;end.
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.