решите пожалуйста билет по паскалю

uses crt;
function F1(a:real):real;
begin
F1:=(2*a-cos(a))/(a+1);
end;
function F2(a:real):real;
begin
F2:=(a*a+3*a)/(a-2);
end;
var x,n,F:real;
begin
clrscr;
write('Vvedite znachenie peremennoj x=');readln(x);
write('Vvedite znachenie shaga n=');readln(n);
if (x=2)or(x+n=2)or(x-n=2) then
  begin
    writeln('Funkcia F2 ne opredelena.');
    writeln('F1(',x:0:1,')=',F1(x):0:3);
    writeln('F1(',(x+n):0:1,')=',F1(x+n):0:3);
    writeln('F1(',(x-n):0:1,')=',F1(x-n):0:3);
  end
else if (x=-1)or(x+n=-1)or(x-n=-1) then
  begin
    writeln('Funkcia F1 ne opredelena.');
    writeln('F2(',x:0:1,')=',F2(x):0:3);
    writeln('F2(',(x+n):0:1,')=',F2(x+n):0:3);
    writeln('F2(',(x-n):0:1,')=',F2(x-n):0:3);
  end
else
  begin
    writeln('F1(',x:0:1,')=',F1(x):0:3);
    writeln('F1(',(x+n):0:1,')=',F1(x+n):0:3);
    writeln('F1(',(x-n):0:1,')=',F1(x-n):0:3);
    writeln;
    writeln('F2(',x:0:1,')=',F2(x):0:3);
    writeln('F2(',(x+n):0:1,')=',F2(x+n):0:3);
    writeln('F2(',(x-n):0:1,')=',F2(x-n):0:3);
  end;
readln
end.

uses crt;
function F(a:real):real;
begin
F:=(2*a-cos(a))/(a+1);
end;
var x,n:real;
begin
clrscr;
write('Vvedite znachenie peremennoj x=');readln(x);
write('Vvedite znachenie shaga n=');readln(n);
if (x=-1)or(x+n=-1)or(x-n=-1) then
writeln('Funkcia F ne opredelena.')
else
  begin
    writeln('F(',x:0:1,')=',F(x):0:3);
    writeln('F(',(x+n):0:1,')=',F(x+n):0:3);
    writeln('F(',(x-n):0:1,')=',F(x-n):0:3);
  end;
readln
end.

uses crt;
function F(a:real):real;
begin
F:=(a*a+3*a)/(a-2);
end;
var x,n:real;
begin
clrscr;
write('Vvedite znachenie peremennoj x=');readln(x);
write('Vvedite znachenie shaga n=');readln(n);
if (x=2)or(x+n=2)or(x-n=2) then
writeln('Funkcia F ne opredelena.')
else
  begin
    writeln('F(',x:0:1,')=',F(x):0:3);
    writeln('F(',(x+n):0:1,')=',F(x+n):0:3);
    writeln('F(',(x-n):0:1,')=',F(x-n):0:3);
  end;
readln
end.

uses crt,graph;
procedure Fig(x0,y0,r,c:integer);{процедура рисования}
begin
SetColor(c);{назначаем цвет от 1 до 14, 0-черный,15-белый}
Rectangle(x0-r,y0-r,x0+r,y0+r);{квадрат}
Circle(x0-r,y0,r);{4 окружности}
Circle(x0,y0-r,r);
Circle(x0+r,y0,r);
Circle(x0,y0+r,r);
end;
var x,y,me,cv:integer;
    gm,gd:integer;
begin
gd:=detect;
Initgraph(gd,gm,'');{переход в графический режим}
x:=GetmaxX div 2;{середина экрана по оси Х и У}
y:=GetmaxY div 2;
me:=10;{минимальный размер в пикселах}
Fig(x,y,me,2); {рисуем фигуры в разных местах, разного размера и цвета}
Fig(x-50,y-50,2*me,3);
Fig(x+50,y+50,3*me,12);
Fig(x-100,y+150,4*me,8 );
Fig(x-200,y-130,5*me,9 );
Fig(x+200,y-110,6*me,14);
readln;
closegraph;{выход из графики}
end.

uses crt,graph;
procedure Fig(x0,y0,r,c:integer);
begin
SetColor(c);
Rectangle(x0-2*r,y0-2*r,x0+2*r,y0+2*r);
Rectangle(x0-3*r,y0-3*r,x0-r,y0-r);
Rectangle(x0+r,y0-3*r,x0+3*r,y0-r);
Rectangle(x0+r,y0+r,x0+3*r,y0+3*r);
Rectangle(x0-3*r,y0+r,x0-r,y0+3*r);
end;
var x,y,me,cv:integer;
    gm,gd:integer;
begin
gd:=detect;
Initgraph(gd,gm,'');
x:=GetmaxX div 2;
y:=GetmaxY div 2;
me:=5;
Fig(x,y,me,2);
Fig(x-50,y-50,2*me,3);
Fig(x+50,y+50,3*me,12);
Fig(x-100,y+150,4*me,8);
Fig(x-200,y-130,5*me,9);
Fig(x+200,y-110,6*me,14);
readln;
closegraph;
end.