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;       
 

V0lUSCBBZGEuVGV4dF9JTywgQWRhLkludGVnZXJfVGV4dF9JTzsKVVNFIEFkYS5UZXh0X0lPLCBBZGEuSW50ZWdlcl9UZXh0X0lPOwoKUFJPQ0VEVVJFIFByb2c1IElTCmEsIGIsIGMgOmludGVnZXI6PTA7ICAgCgpCRUdJTgogICBMT09QCiAgICAgIEE6PUI7CiAgICAgIEI6PUM7CiAgICAgIFB1dCgiUG9kYWogbGljemJlOiAiKTsKICAgICAgR2V0KEMpOwogICAgICBFWElUIFdIRU4gQz0wOwogICAgICAKICAgICAgSUYgYSBtb2QgMj0wIEFORCBCIG1vZCAyPTAgQU5EIEMvPTAgQU5EIGMgbW9kIDI9MCBUSEVOCiAgICAgICAgIFB1dCgiUG9kYW5vIHBvIHNvYmllIDMgbGljemJ5IHBhcnp5c3RlLiIpOwogICAgICAgICBuZXdfbGluZTsKICAgICAgRUxTRQogICAgICAgICBQdXQoIk5pZSBwb2Rhbm8gcG8gc29iaWUgMyBsaWN6YiBwYXJ6eXN0eWNoLiIpOwogICAgICAgICBuZXdfbGluZTsKICAgICAgRU5EIElGOwoKICAgICBFTkQgTE9PUDsKCgplbmQgcHJvZzU7ICAgICAgIAo=