CONST
x=5;
z=7;
VAR
y:real;
FUNCTION fact(const z:integer):integer; {функция возвращает факториал аргумента z}
var
i,S:integer;
BEGIN
S:=1;
for i:=1 to z do S:=S*i;
fact:=S;
END;
BEGIN
y:=sin(x)+fact(z);
writeln('y = ',y:5:2);
readln;
END.
CONST
x=5;
z=7;
VAR
y:real;
FUNCTION fact(const z:integer):integer; {функция возвращает факториал аргумента z}
var
i,S:integer;
BEGIN
S:=1;
for i:=1 to z do S:=S*i;
fact:=S;
END;
BEGIN
y:=sin(x)+fact(z);
writeln('y = ',y:5:2);
readln;
END.