Program Deret Bilangan Genap Pada Pascal

Soal

Buatlah program menghitung bilangan genap dengan output:
2 4 6 8 10 dst

Listing Program

program bilangangenap;
uses crt;
var
 i,n:integer;
begin
 clrscr;
 write('Masukkan Angka : ');readln(n);
 for i:=1 to n do
  write(2*i,' ');
 readln;
end.

Output Program