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

PROCEDURE Prog3 IS
   a, b, c:integer:=0;
   Max :Integer;
  
BEGIN
  
   max:=integer'first; 
   LOOP
      A:=B;
      b:=c;
     
      Put("Podaj liczbe: ");
      Get(c);
      EXIT WHEN c=0;
  
IF A>B AND A >C THEN
         Max:=A;
         end if;
     
         IF b>a AND b >C THEN
            max:=b; 
           end if;    
         
         IF c>a AND c >b THEN
            max:=c; 
    END IF;
       
     
      end loop;
        Put("Najwieksza liczba to: ");
      Put(Max);
 





end prog3;