Проверьте программу, пожалуйста. номер 2 пишет Nan почему-то program two; var x,y:real; begin writeln('Введите х'); readln(x); y:=x*x - sqrt (57 - 0.3*x*x*x) /(x-4); writeln(y); end.
Sqrt() - функция извлечения квадратного корня; подкоренное выражение должно быть >=0. В Вашем случае: 57-0,3*^3 >=0, т.е x <= 5,75