Вопрос жизни и смерти!!! Помогите в последний раз!!!

[VADOS2009-1]

№ 1
Извесны оценки 2 учеников по 4 предметам. Опредилитьсуму оценок кажного ученика.

№ 2
Составить програму для расчёта факториала натурального числа n.
(n=1*2..n)

Пожалуста очень срочно!!!

[ViNcHeStEr]

Какой язык то? Паскаль?

[VADOS2009-1]

Да Паскаль пожалуста очень нада срочно

[NSvirus]

№1

for i:=1 to 4 do
 begin
   read(mas[i]);
   sum1:=sum1+mas[i]
 end;
for i:=1 to 4 do
 begin
   read(mas[i]);
   sum2:=sum2+mas[i]
 end;
 writeln('sum1=',sum1,'sum2=',sum2)

[VADOS2009-1]

а в задаче № 1, var как записать?

[MalCer]

2)

function factorial(n: integer):int 64;
var
   i: integer;
begin
   result :=1;
  for  i :=2 to n do
 result := result*i;
end;

[danekne]

2) предложу рекурентную:
function factorial(n: byte): longint;
begin
if (n = 0) then
factorial := 1
else factorial := n * factorial(n - 1);
end;