Не могу понять, где тут ошибка ( программа pascal ). , : program delenie_na_4; var a: integer; begin write ('4'); read (a); if 16 mod 4=0 then write ('число'; 16, 'делится на 4') else write ('число',16, 'не делится на 4') end

Program delenie_na_4;
Var a: integer;
Begin
   write ('4');
   Read (a);
   If a mod 4=0
   then
      write ('число ', a, ' делится на 4')
   Else
      write ('число ', a, ' не делится на 4');
End.

Var a: integer;
Begin
write ('Введите число: ');
Readln (a);
If a mod 4=0 then writeln ('число ', a, ' делится на 4')
Else writeln ('число ',a, ' не делится на 4');
End.