Очень срочно нужна помощь !!!! Записать примеры на языке Паскаль ! В строчку !!!
Алфавит и примеры ниже)!

Ответ:

1)

begin

 var x:=ReadReal;

 Print((Sqr(x)-x+2)/Sqr(x)-5*Sqr(x)+40);

end.

2)

begin

 var (a,b,c):=ReadReal3;

 println((-b+Sqrt(Sqr(b)-4*a*c))/(2*a));

end.

3)

begin

 var x:=ReadReal;

 Println((Cos(2*x))+(Sqr(Sin(5*x))));

end.

4)

begin

 var (a,b,c):=ReadReal;

 Println((abs(1-Sqr(xor)))+(a*b)/c);

end.

5)

begin

 var (x, y, z) := ReadReal3;

 Println((Sin(1.2 * y + 0.5) / z) - (Sqr(Sin(0.02 * x * y)) * (cos(3 * Sqr(z)))));

end.

6)

const

p = 3.14;

begin

 var x,y,w,m,a:integer;

 Println((-2*p*x)/y+(Sin((y/p*a)*(Abs(w/2*m)))));

end.