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.