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.