1.Напишите программу,определяющую сумму S = 1+2+3+4...+99
2.Напишите программу,определяющую произведение
P = 1*2*3*4...*10
На Паскаль
За ранее благодарна

Var
  i,s:integer;
begin
  s:=0;
  for i:=1 to 99 do s:=s+i;
  Writeln(S=,s)
end.

var
  i:integer;
  p:longint;
begin
  p:=1;
  for i:=1 to 10 do p:=p*i;
  Writeln(P=,p)
end.