Program myprg; var x,y: integer; begin writeln('x='); readln (x); if (x>0) and (x<=1) then y:=sqr(x)-x else y:=sqr(x)-sinpi*xsqr(x); writeln ('y=',y); end. Program2.pas(8) : Неизвестное имя 'sinpi' если убрать пи то выходит так Program2.pas(8) : Нельзя преобразовать тип function(x: real): real к int64