PROGRAM real_math_demo;

VAR a,b,c,d : REAL;

BEGIN
  a := 3.234;               {simply assigning a value}
  b := a + 1.101;           {adding a constant}
  c := a + b;               {summing two variables}
  d := 4.234*a*b;           {multiplication}
  d := 2.3/b;               {division}
  d := a - b;               {subtraction}
  d := (a + b)/(12.56-b);   {example of a multiple expression}
                            {Pascal has no expression for
                             raising a number to a power.
                             It must be done with the log and
                             exp functions}
  {The trigonometric functions, log functions and others are available
   as predefined routines. See pages 139 to 141 of the TURBO reference
   manual for a complete list}

  { It will be left up to you to print out some of the above values}
END.