Program Pascal : Deret

program deret;
uses wincrt;
var    n,i,a:integer;
begin
writeln ('masukan banyaknya deret '); readln(n);
i:=1;
repeat a:=a+2 ;
write(a,' ');
i:=i+1;
until i>n ;
end.