В чем ошибка? var x:real; fuction x1(a,b:integer):real; begin x1:=a+sqrt(b)/b+a; end; begin x:=x1(15+8)/8+15 + x1(6+12)/12+6 + x1(7+21)/21+7;