Program Penjumlahan ++

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.