Задание

Выполни задание

Найди в программе и выпиши из неё заголовок головной программы; раздел описания переменных; раздел описания подпрограммы с указанием имени функции, входных данных, типа результата и операторов функции; раздел операторов головной программы.

program n92;

var x, y: integer;

p: longint;

function f (n: integer):

longint;

var i: integer; p: longint;

begin

p : =1;

for i : =1 to n do p : =p*i;

f : =p

end;

begin

write\,('x='); readln\,(x);

write\,('y='); readln\,(y);

p : = f(x)+f(y)+f(x+y);

writeln\,('p=', p)

end.

Что будет выведено на экран в результате выполнения этой программы?

Проверь себя, выполнив программу в среде программирования Паскаль.