Написать программу которая складывает числа от 4 до 100

Var i,sum:integer;
Begin
for i:=4 to 100 do
  begin 
      sum:=sum+i; 
      writeln('Summa#',i,'=',sum);
  end;
end.