Ввести число если оно четное кратное 7 и не кратное 5 то увеличить его на 6

Var a:integer;
Begin
Read(a);
If (a mod 2=0) and (a mod 7=0) and ( a mod 5<>0) then
a:=a+6;
Write(a);
End.