Написать программу в паскаль

program K_1;var x:integer;y:real;begin
writeln('Введите x');readln(x);y:=sin(pi*x)+sqr(x)-sqrt(exp(x))/(cos(pi*x)+2-(sin(x)/cos(x)));writeln('y=',y:0:2);
readlnend.