Pascal/Turbo Pascal - programa en free pascal

{A ver si esto bale}

 program multiplos;

 uses

    crt;

  var

    numero : integer;

    salir : integer;

  begin

      clrscr;

      salir := 1;

      while salir <> 666 do

      begin

         write('Entre un numero : ');

         readln(numero);

         if numero = 666 then

         salir := numero

      else

         begin

            if numero mod 5 = 0 then

            writeln(numero,' : Es multiplo de 5');

            if numero mod 3  = 0 then

            writeln(numero,' : Es multiplo de 3');

         end;

      end;

  end.