Что здесь неправильно? program superhotexe; var x,y:real; begin writeln ('Введите x'); read(x); if x<0 then y:=sqr(x)+5; if x>0 then else y:=sqr(cos(x))*x; writeln ('y=', y:6:2) end.
Ответ:
(if x>0 then) лишнее, удалите
красная строка
что подчеркивает?