Помогите решить .Срочно надо решить !!!!! Первое упражнение 3 номер ,2 упражнение всё

1 упражнение, 3 номер:

var a, x, y, z:real;

begin

read(x, y, z);

a:=(1+z)*((x+ y/(sqr(x)+4))/(2+1/(sqr(x)+4)));

writeln(a:3:2);

end.

2 упражнение, 1 номер:

var r, S, C:real;

begin

readln(r);

S:=pi*sqr(r);

C:=2*pi*r;

write('Площадь = ',S:3:2, ' Длина = ', C:3:2);

end.

2 упражнение, 2 номер:

var B:integer;

   C:real;

begin

readln(B);

C:=(180-B)/2;

writeln('Угол при основании = ', C);

end.