MATERI PASCAL

program penjumlahan;
uses wincrt;
var i,a,n,hasil,f:integer;
begin
writeln('masukkan angka');readln(n);
a:=n;
for i:=n downto 2 do
begin
hasil:=n*n;
write ((n-1)+a,'+');
a:=a-2;
 end;
 begin
   if n=0 then write ('')
  else if(n<=1) then write ('1')
else write(1,'=',hasil);
end;
end.