unit lab1;
interface
function F_zad_11(x,y:integer):real;
procedure zad12(a:real);
function F_zad_12(a:real):real;
function zad_13(x:integer):integer;
Implementation
procedure zad12(a:real);
begin

end;
function zad_13(x:integer):integer;
begin
zad_13:=2*x*x*x*x-3*x*x*x+4*x*x-5*x+6;
end;
function F_zad_11(x,y:integer):real;
begin
if(x<>y)and(x<>0)and(y<>0) then
F_zad_11:=((x+y)/(sqr(x)+x*y))-((3*x+y)/(sqr(y)-sqr(x)) )
 else writelN(' Данные не корректны !!! Деление  на ноль не возможно !!!');;
end;
function F_zad_12(a:real):real;
begin
a:=a*pi/180;
if cos(a)<>0 then
F_zad_12:=sqrt((1-cos(a))/(1+cos(a)))+sqrt((1+cos(a))/(1-cos(a)))
 else writeln(' Данные не корректны !!! Деление  на ноль не возможно !!! ');
end;
end.