Question

Помогите , нужно составить программки «Паскаль»

Answer 1

Уровень A
var  k, n, summa: integer;
begin 
readln (n); 
summa := 0; 
k := 1; 
while k <= n do 
begin   
summa := summa + k;   
k := k + 1; 
end; 
writeln('Сумма чисел: ', summa);   
readln;
end.

Answer 2

var
k, n: integer;
pr: real;

begin
readln(n);
pr := 1;
k := 1;
while k <= n do
begin
pr := pr * k;
k := k + 1;
end;
writeln('Произедение чисел: ', pr);
readln;
end.