Паскаль надо решить ,сделать програмку y=2sinx+0,5

Var x,y:real;
begin
  readln (x);
  y:=2*sin(x)+0.5;
  writeln (y);
end.

Uses crt;
var x, y:real;
begin
write('x='); read(x);
y:=2*sin(x)+0.5;
write('y=',y);
end.