Pascal Program Bilangan Balok

uses crt;
var a,i,j : integer;
begin
     clrscr;
     writeln('             Program Bilangan Balok');
     writeln('           ------RIZKA FAJRIAH-------');
     writeln;
     write ('Masukan angka : ');readln(a);writeln;

           for i := 1 to a do
           begin
           j := i * ( i + 1 ) * ( i +  2) ;
           write (j,' ');
           read;
           end;
readkey;
end.

Output :