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

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