четные числа от 1 до 30

Ответ от Максик Странный[гуру]
uses Crt;
var
a, i: integer;
begin
a:=1;
for i:=1 to 30 do
begin
if a mod 2 = 0 then
begin
writeln(a);
a:=a+1;end
else a:=a+1;
end;
readln;
end.