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

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 lt; 10000) and (a gt; 999) and (a mod 3 = 0) then writeln('Является') else writeln('не является');

end.