Для делимости числа на 4 необходимо, чтобы число из последних двух чисел делилась на4. Написать функцию проверки делимости числа n, на вводимого с клавиатуры, на 4 — Pascal(Паскаль)

uses crt;
function lol(lulz:integer):boolean;
begin
   if (lulz mod 100) mod 4 = 0 then
      lol:=true
   else
      lol:=false;
end;
var
   n:integer;
begin
   readln(n);
   if lol(n)=true then
      writeln('yes')
   else
      writeln('no');
end.