хелп ми плез Паскаль

3.

var

   a, b : integer;

begin

   readln(a, b);

   if ((a mod 10) mod 2 = 0) and ((b mod 10) mod 2 = 0) then writeln('Верно') else writeln('Не верно');

end.

4.

var

   a : integer;

begin

   readln(a);

   if (a < 10000) and (a > 999) and (a mod 3 = 0) then writeln('Является') else writeln('не является');

end.