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}

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

---

Result of execution
(There is no output from this program )