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
А переменнык X, Y:real; , потому что что корень, а особенно sin не всегда могут получатся целыми