Что будет результатом выполнения следующей функции при n=5?

functionfactorial (n: byte): integer;

begin

if n>1

then factorial:=factorial (n-1)*n

elsefactorial:=1;

end;

Выберите один из 4 вариантов ответа:

1) Функция вернёт значение 1 2) Функция вернёт значение 120

3) Функция вернёт значение 0 4) Функция вернёт сообщение об ошибке

Program z10;  Var m,n:integer;Begin  writeln('Задание 1: ');  write('Введите двухзначное число m - '); readln(m);  n:= m div 10 * 100 + 10 + m mod 10;   writeln('N = ', n);  writeln;    writeln('Задание 2: ');  write('Введите трехзначное число n - '); readln(n);  m:= n div 100 * 100 + n mod 10;   writeln('M = ', m);  writeln;    writeln('Задание 3: ');  write('Введите трехзначное число n - '); readln(n);  m:= n div 100 * 10 + n div 10 mod 10 * 100 + n mod 10;   writeln('M = ', m);  writeln;  End.

Program z6;  Var a: array [1..10] of string; i,j,l:integer; s,g,s_2:string;Begin  write('Введите строку - '); readln(s);  l:=s.Length;  i:= 1;  j:= 1;    while i <= l do  begin    while (s[i] <> ' ') and (i <= l) do    begin      a[j]:=a[j] + s[i];      i:= i + 1;      if (i > l) then break;    end;    j:= j + 1;    i:= i + 1;  end;    i:= 1;  while (a[i] <> '') do  begin    g:=a[i];    g[1]:= (Upcase(g[1]));    s_2:= s_2 + g + ' ';    i:= i + 1;    g:='';  end;  writeln(s_2);End.