A1^(2+3*a2)/(A1+B2)*B2)/25 запишите в паскале
Var a,b:real;beginreadln(a,b);a:=a*sqrt(((2+3*a*2)/(a+b*2)*b*2)/25);write(a);end.
var a,b:real;begin readln(a,b);a:=a*sqrt(((2+3*a*2)/(a+b*2)*b*2)/25);write(a);end.
так правильней