Написать программу на паскале используя подпрограмму (функцию или процедуру), которая вычисляет факториал (x! +y! )*z! заранее !

1. "школьное решение" function f(n: integer): real; var   p: real;   i: integer; begin   p: =1;   for i: =1 to n do p: =p*i;   f: =p end; var   x,y,z: integer;   begin   write('введите x,y,z через пробел: ');   read(x,y,z);   writeln((f(x)+f(y))*f(z)) end. примеры введите x,y,z через пробел: 8 12 5 57485030400 введите x,y,z через пробел: 23 15 41 8.64815278005251e+71 2. современное решение // pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! begin   var f: integer-> bigiinteger: =n-> 1.to(n).aggregate(biginteger(,y)-> x*y);   var (x,y,z): =readinteger3('введите x,y,z через пробел: ');   writeln((f(x)+f(y))*f(z)) end. примеры введите x,y,z через пробел: 8 12 5 57485030400 введите x,y,z через пробел: 23 15 41 864815278005250908694716268480895614135710289321049211273216000000000000

Var s: string; i,n,k: integer; begin s: = 'вот это в требует в предлогов в данном в предложении'; n: = length(s); for i: = 2 to n-1 do begin if (s[i-1]=' ') and (s[i]= 'в') and (s[i+1]=' ')   then begin writeln(i,s[i]: 3); k: = k +1; end; end; write(k); end.