программы с циклом FOR (Тема 7) (3)

program SummProiz;
var a,sum,pro : integer;
begin

  sum := 0;
  pro := 1;

  for a := 1 to 5 do begin
    sum := sum + a;
    pro := pro * a;
  end;

  writeln('Сумма = ', sum);
  Writeln('Произведение = ', pro);

end.