Найти сумму всех натуральных чисел от 1 до n и произведение. ...

Ira

program test;var i, n, sum, product: integer;begin   write('Enter n: ');   readln(n);   sum:=0;   product:=1;   for i:= 1 to n do   begin      sum:=sum + i;      product:=product*i;   end;   writeln('Sum = ', sum);   writeln('Product = ', product);   readln();end.