uses System.Math;

var
  Sin90, Cos180, Tan45: Double;
begin
  //angles are in radians; Pi is a
  //built-in constant; Tan lives in Math
  Sin90 := Sin(Pi / 2);
  //Sin90 is 1.0

  Cos180 := Cos(Pi);
  //Cos180 is -1.0

  Tan45 := Tan(Pi / 4);
  //Tan45 is 1.0

  WriteLn('sin90 is ', Sin90:0:1);
  WriteLn('cos180 is ', Cos180:0:1);
  WriteLn('tan45 is ', Tan45:0:1);
end.