Работа в паскаль! , хелп: 3 1. составьте программу, которая находит сумму n чисел, введенных с клавиатуры. 2.составьте программу, которая вычисляет произведение чисел от 1 до n. значение n вводится с клавиатуры.

1. var s,x,n,i:longint;
begin
s:=0;
readln(n);
for i:=1 to n do begin
read(x);
s:=s+x;
end;
writeln(s);
end.
2. var i, n, p:longint;
begin
readln(n);
p:=1;
for i:=1 to n do
p:=p*i;
writeln(p);
end.