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