Question

Помогите составить программу в паскале,пожалуйста!

Answer 1

1.
program dfjg;
var a,b,c,y,z:real;
begin
writeln('Введите a,b,c и z');
readln(a,b,c,z);
y:=((a+b)/3-3.86*(z*b-a*c))/2;
writeln('y=',y);
end.

2.
program dfjg;
var y,z:real;
begin
writeln('Введите z');
readln(z);
if z<12
then y:=z-2*z+4
else y:=sqr(z)+16;
writeln('y=',y);
end.