programma che visualizza se un numero S o non S multiplo di 7

informatica

program mult7;

  (*programma che visualizza se un numero S o non S multiplo di 7*)

    var n,res:integer;

  BEGIN

  writeln('Dimmi un numro e ti dir. se S o non S multiplo di 5');

  readln(n);

  res:=n mod 7;

  if res = 0 then writeln(n,' S un multiplo di  sette! :-)')

  else writeln(n,' non S un multiplo di sette. :-(');

  readln

  END.