czy liczba jest podzielna przez 2 lub przez 7

program zadanie1;

Var I: Integer;
Begin
 ReadLn(I); 
 if (I Mod 2 = 0) And (I Mod 7 = 0) Then 
 begin
  WriteLn('Liczba jest podzielna przez 2 i 7 !');
  WriteLn('Liczba nie jest podzielna przez 2 i 7 !');
readln
End; end.

mam problem , program sie kompiluje niby wszystko w pozadku a nic sie nie wyswietla na ekranie

Chyba powinno być tak:

program zadanie1;

Var I: Integer;
Begin
 ReadLn(I);
 if (I Mod 2 = 0) And (I Mod 7 = 0) Then
  WriteLn('Liczba jest podzielna przez 2 i 7 !')
  else
  WriteLn('Liczba nie jest podzielna przez 2 i 7 !');
readln;
end.

ok dzieki juz wsystko w porzadku