WITH Ada.Text_IO, Ada.Integer_Text_IO;
USE Ada.Text_IO, Ada.Integer_Text_IO;

PROCEDURE Prog1 IS
a, b, c :integer:=0;   
BEGIN
  
   LOOP
      A:=B;
      b:=c;
      Put("Podaj liczbe: ");
     
      Get(c);
     
      exit when c=0;
      Put(a);
      Put(B);
      put(c);      
     new_line;

        end loop; 

END Prog1;