Program z4; var x,y:real; begin writeln('Введите x'); readln(x); if(x>10) then begin y:=x - (power(x,2.4))/(x - 1/x); writeln('При x = ',x,', функция вычисляется по формуле (y:=x - (power(x,2.4))/(x - 1/x)), и ее значение равно: ',y); end; if ((x>-1) and (x<=3)) then begin y:=x*power((2+x),2.5); writeln('При x = ',x,', функция вычисляется по формуле (y:=x*power((2+x),2.5)), и ее значение равно: ',y); end; <span><u />end.<u /> Прошу прощения за долгий ответ. Не мастак я рисовать блок-схемы</span>