Angka(1)

program angka;
uses wincrt;
var
i,n,j:integer;
begin
clrscr;
writeln('masukkan angka : ');readln(n);
j:=0;
for i:=0 to n do
begin
writeln(i);
j:=j+i;
end;
writeln('hsl',n,'adalah',j);
end.