Program mencetak angka Genap

uses crt;
var
   n,i:integer;
begin

    clrscr;
    write('Jumlah Angka Genap yang ingin di tampilkan:  ');readln(n);
    for i := 1 to n do
    begin
    write(i*2);
    end;
    readln;

end.