Escribir un programa que lea dos números enteros A y B, y obtenga los valores A div B, A mod B.

PROGRAM EJERDIV;
       Uses Crt;
             Var A,B: Integer;
             Var soluc: Integer;
Begin
     ClrScr;
     WRITELN('Introduzca dos numeros:');
     WRITELN;
     WRITE('A: '); READLN(A);
     WRITE('B: '); READLN(B);
     WRITELN;

     WRITE('A div B = ');
             soluc := A div B; {div hace la division de 2 numeros enteros}
     WRITELN(soluc);
     WRITELN;
Escribir un programa en Pascal que muestre un mensaje afirmativo si el numero introducido es múltiplo de 5.

PROGRAM EJER32;
USES CRT;

var num:Integer;
Begin
ClrScr;

WRITE('Introduzca un numero : '); READLN(num);
IF num mod 5 = 0 THEN
WRITE('El numero introducido es múltiplo de 5')
ELSE
WRITE('El numero introducido no es múltiplo de 5');
End.


Escribir un programa en Pascal que lea un numero y lo devuelva multiplicado por 5 y dividido por 7.

PROGRAM EJER34;
USES CRT;

var num, soluc:Real;
Begin
ClrScr;
       WRITE('Introduzca un numero: ');
READLN(num);
WRITELN;

{multiplicamos y dividimos el numero obtenido}
soluc := (num * 5) / 7;

WRITE('(',num:5:2,' * 5) / 7) = ',soluc:5:2);
{Poniendo ":5:2" le decimos el formato de salida del numero,
5 posiciones y 2 decimales - Prueba a cambiarlo como mas te guste}
End.

Escribir un programa que convierta un número de segundos en su equivalente en minutos y segundos.

PROGRAM EJERSEG;
       Uses Crt;
             var seg0,seg,min: Integer;
Begin
     ClrScr;
           WRITE('Introduzca los segundos: '); READLN(seg0);
           WRITELN;

           min := seg0 div 60;
           seg := seg0 mod 60;

           WRITE(seg0,' segundos son ',min,' minutos y ',seg,' segundos.');
End.