Задача паскаль

[pisech]

Помогите с решением

[phasha]

а ниче что у тебя Х от 2 до 3?наверно имели ввиду х<=2 и x>3.тогда это проще чем кажется.нужно лишь правильно поставить условие.

program funcsia_y;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var x,y,k:Real;
function ctg (x : real) : real;

begin

ctg := cos(x)/sin(x);

end;                               //создаем функции tg и ctg


function tg (x : real) : real;

begin

tg := sin(x)/cos(x);

end;
begin
  write('vvedi X=');
  Readln(x);
  if x<0 then x:=x*(-1);//находим модуль
  if (x>2) and(x<3) then writeln('X ne veren!');
  if x<=2 then begin k:=ctg(pi*3*x/180);
  if k<0 then k:=k*(-1);
  y:=Sqrt(k); writeln('y= ',y:5:5);
  end;
  if x>3 then begin y:=(Sqr(Cos(pi*2*x/180)+(7*exp(4*ln(tg(pi*x/180))))));
    Writeln('y= ',y:5:5);  end;
  Readln;
end.

делал в спешке.если что не так поменяйте условие как угодно