program varuitvoer; uses wincrt;
var
   x: real;
   a, b: integer;
begin
   x:=728.3452;
   a:=1998;
   b:=-23;
   write('De waarde van a = ', a);
   writeln(' en de waarde van b = ', b);
   writeln;
   write('De waarde van x = ', x:6:2)
end.