Написать программы по 3 заданиям.

1.
program z1;
var a,b,c,s,k,y:real;
begin
writeln ('введите a,b,c');
readln(a,b,c);
s:=sqrt(3*c*c*c-b*b*b)/(b-c);
k:=sqrt(s)+abs((-1)*a*b*c);
y:=s+3*k-s*s*s*s/(b+c);
writeln(y);
end.

2.
program z1;
var f,c:real;
begin
writeln('Введите исходное значение температуры F');
readln(f);
c:=5/9*(f-32);
writeln(c);
end.

3.
program z1;
var d,m,r,a:real;
begin
writeln('введите массу опоры, радиус опоры, сторону квадрата');
readln(m,r,a);
d:=9.8*m/3.14/(r*r-a*a);
writeln(d);
end.