{$c+}
program test(input,output);
var i,j,x,y : integer;
    w : real;
function tester(a, b, c : integer) : integer;
begin
	write(': a = ', a : 3, ' : ');
	write('b = ', b : 3, ' : ');
	write('c = ', c : 3, ' :');
	write(': a + b + c ==> ');
	tester := a + b + c
end;
begin
	write('type integer x: '); readln(x);
	write('type integer y: '); readln(y);
	write('type in real w: '); readln(w);
	writeln;
for i := 0 to 5 do
  begin
	x := x - i; y := y - i;
	{ROUND(Real_Value) IS ALSO IMPLEMENTED: }
	w := w - i; j := trunc(w);
	writeln('Real number w = ', w : 5, '.');
	{SPECIFIERS OF THE FORM 
		"w : total_width : fractional_digits"
	AND
		"w : total_width"
	 WORK ON THIS SYSTEM WHEN PRINTING real NUMBERS.}
	writeln;
	writeln('tester{w,y,x} :', tester(j, y, x) : 5);
	writeln;
	writeln('tester{y,x,w} :', tester(y, x, j) : 5);
	writeln;
	writeln('tester{x,w,y} :', tester(x, j, y) : 5);
	writeln
  end
end.
