Pascal/Turbo Pascal - Multiplicación de números multiplos de tres .

Buenas tarde, tengo el siguinte código que me permite sumar númros pero no me permite me permite multiplicar multiplos de tres. solo quiero que multiplique multiplos de tres. los no que lo son no debe multiplicar.


Espero me puedan ayudar.

Entiendo que lo que pretendes es multiplicar esos números es así. Te propongo esta solución:

Program EjercicioMult;

Uses Crt;

Var n,resu,i,cont:Integer;


Begin
resu:=1;
CLRSCR;

For i:= 1 to 5 do



Begin

WriteLn('Ingrese un numero '); ReadLn(n);

if (n mod 3 = 0) then

Begin

WriteLn('Numero Multiplo de tres ');

resu:= resu * n ;


End

Else
begin

WriteLn('Numero no es multiplo de tres');

end;

End;
Writeln('El resultado de la multiplicacion es: ',resu);

ReadKey;

End.