Program qq;
var a: integer;
begin
writeln ('Введите целое число'); readln(a);
If (a mod 5 =0) and (a mod 10=0) then writeln ('Число кратно 5 и 10') else writeln ('Число не кратно 5 и 10'); end.

Поскольку 10 = 5 х 2, то число, кратное 10, одновременно кратно и 5.

Турбо Паскаль 7.01

uses Crt;
var
  n:longint;
begin
  ClrScr;
  Write('n='); Read(n);
  if n mod 10=0 then Writeln('Число кратно 10 и 5')
  else Writeln('Число не кратно 10 и 5');
  ReadKey
end.

В то же время, возможно сам вопрос неверно поставлен, и подразумевается, что надо различать три случая: 1) число кратно только 5 2) число кратно 10, следовательно, и 5 3) число не кратно ни 5, ни 10. Но это уже проблемы автора вопроса.