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.