Program P42;
 { Afişarea datelor de tip real }
var x : real;
begin
 x:=-1234.567890;
 writeln(x);
 writeln(x:20);
 writeln(x:20:1);
 writeln(x:20:2);
 writeln(x:20:4);
 writeln(x, x, x);
 writeln(x:20, x:20, x:20);
 writeln(x:20:4, x:20:4, x:20:4);
end.