¿No tienes cuenta? Registrarte
var R: Real; begin R := Sin(Pi); Writeln ('El seno de Pi is', R); Readln; end.