Program Faktorial dan Deret Jumlah

program latihan;
uses wincrt;
var input, jumlah,i :integer;
faktorial : longint;
begin
write ('Masukkan angka : ');
readln (input);
jumlah:=0;
faktorial:=1;
writeln ('    i    ','faktorial','  jumlah ');
for i:=1 to input do
begin
jumlah:=jumlah+i;
faktorial:=faktorial*i;
writeln ('    ',i,'       ',faktorial,'         ',jumlah)
end;
end.