Помогите!!!!!!! Срочно!!!!
Program senya;
var a,b,y,z,d:real;
Begin
Writeln('Введи a,b:');
Readln(a,b);
z:=(sqr(a)+sqr(b)+6)/(3*(a+7));
d:= z*4;
y:=d + sqr(a+b);
writeln('Ответ: ',y);
End.