Объяснение:program zxy;
uses crt;
var z,x,y:real;
begin
writeln('Vvedite x,y');
readln(x,y);
z:=(x*x*x)-(2. 5*x*y) +(1. 78*x*x)-(12. 5*y)+1;
writeln('z=',z);
end.
program abx;
uses crt;
var a,b,x:real;
begin
writeln('Vvedite a,b');
readln(a,b);
x:=(3. 56*(a*a*a+3*a*a*b+3*a*b*b+b*b*b))-(5. 8*b*b) +3. 8*a-1. 5;
writeln('x=',x);
end.