with Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;
 use Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;

procedure main is
   X: Integer;
   Y: Integer;
   Z: Integer;
begin
   get(X);
   get(Y);
   get(Z);
   put(Z, 0);
   new_line;
   put(X, 0);
   new_line;
   put(Y, 0);
   new_line;
end main;