Lista1_Ex4

Program LISTA1_QUESTAO4 ;
uses crt;
const
    x = 10;
    y = 5;
    z = 2;
var
    n: integer;

Begin
    textbackground (white);
    textcolor (blue);
    clrscr;
    writeln ('Digite um valor: ');
    readln (n);
    if n mod x = 0 then
    writeln ('O número é divisivel por 10')
    else
    if n mod y = 0 then
    writeln ('O número é divisivel por 5')
    else
    if n mod z = 0 then
    writeln ('O número é divisivel por 2')
    else
    if (n mod 10<>0)  and (n mod 5<>0) and (n mod 2 <>0) then
    writeln ('O valor não é divisível por 10, 5 ou 2.');
        readln () ;

End.