посчитайте пишет ошибку Program1. pas(8) : Нет перегруженной подпрограммы с такими типами параметровProgram sum3;Var x: integer;var y:real;Beginwriteln('введите x');Readln (x);if x<0 then y:=1+2*x/1+sqr(x) elseif 0<=x<1 then y:=sqr(sin)*x*sqrt(1+x) elseif x>=1 then y:=sqr(sin)*x*exp(0,2*x);writeln('y=',y,'при x=',x);end.