REM funcINPUT a,b,cIF (a^2-b)*(c-b^2)<>0 THEND=(a^2-b)*(c-b^2)/3PRINT DELSEPRINT "Реш.нет"END IFEnd
program zadacha;vara,b,c:integer;d:real;beginreadln(a,b,c);d:=(sqr(a) - b) * (c-sqr(b)) / 3;writeln(d);end.