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

PROCEDURE Prog5 IS
a, b, c :integer:=0;   

BEGIN
   LOOP
      A:=B;
      B:=C;
      Put("Podaj liczbe: ");
      Get(C);
      EXIT WHEN C=0;
      
      IF a mod 2=0 AND B mod 2=0 AND C/=0 AND c mod 2=0 THEN
         Put("Podano po sobie 3 liczby parzyste.");
         new_line;
      ELSE
         Put("Nie podano po sobie 3 liczb parzystych.");
         new_line;
      END IF;

     END LOOP;


end prog5;