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.