Текст задания

Составить программу вычисления функции с использованием подпрограммы-процедуры при х = 0, 45. 

Блок-схема алгоритма

Исходный код программы

var
x,w:real;
function Fact(const x: integer):integer;
var
i,f:integer;
begin
f:=1;
 for i:=2 to x do
  f:=f*i;
Fact:=f;
end;

Procedure SchetW(const x:real);
begin
w:=x-cos(x*x)/Fact(3)+cos(x*x*x*x)/Fact(5);
Writeln('w=',w:2:2);
end;

begin
SChetw(0.45);
Readln;
end.