uses crt;
var x,a:real;
begin
writeln('Введи x');
readln(x);
a:=sin(x);
writeln('синус x ',a)
end.
<em>Вроде так.</em>