1)Функция

program fun;

function f(m,n : real):real;

var  

k,x,y : real;

begin

x:=5*m+pi/3;

y:=3*n-pi/3;

k:=(cos(2*x)*cos(2*x))/(cos(y)+cos(pi/4));

f:=k;

end;

var  

a,b : real;

begin

writeln('Введите число a= ');

read(a);

writeln('Введите число b= ');

read(b);

writeln('F= ',f(a, b):0:2);

end.

2) Процедура

program fun;

procedure f(m,n : real);

var

k,x,y : real;

begin

x:=5*m+pi/3;

y:=3*n-pi/3;

k:=(cos(2*x)*cos(2*x))/(cos(y)+cos(pi/4));

writeln('F=',k:0:2);

end;

var a, b :real;

begin

writeln('Введите число a= ');

read(a);

writeln('Введите число b= ');

read(b);

f(a,b);

end.