Примерно так
var x : integer;
var i : integer;
begin
x := 2;
for i := 1 to 10 do begin
writeln(x);
x := x + 2;
end;
end.
Var i : integer;beginfor i:= 1 to 10 dobegin writeln(i*2);end; end.
