Написать программу на Паскале вычисления функции у=sinx+Z!(факториал) для х=5 и z=7.

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.