programa Exercicio29;
 
var
  num1, num2 : Inteiro;
inicio
  Escreva('Informe o numero 1: ');
  Leia(num1);
 
  Escreva('Informe o numero 2: ');
  Leia(num2);
 
  se (num1 mod 2 = 0) e (num1 mod 3 = 0) entao
    Escreva('O numero ', num1, ' eh divisivel por 2 e por 3 ao mesmo tempo.');
 
  se (num2 mod 2 = 0) e (num2 mod 3 = 0) entao
    Escreva('O numero ', num2, ' eh divisivel por 2 e por 3 ao mesmo tempo.');
fim.

program Exercicio29;
 
uses
  Classes, SysUtils;
 
var
  num1, num2 : Integer;
begin
  Write('Informe o numero 1: ');
  ReadLn(num1);
 
  Write('Informe o numero 2: ');
  ReadLn(num2);
 
  if (num1 mod 2 = 0) and (num1 mod 3 = 0) then
    WriteLn('O numero ', num1, ' eh divisivel por 2 e por 3 ao mesmo tempo.');
 
  if (num2 mod 2 = 0) and (num2 mod 3 = 0) then
    WriteLn('O numero ', num2, ' eh divisivel por 2 e por 3 ao mesmo tempo.');
 
  { Outra opcao seria testar se o numero eh divisivel por 6,
  uma vez que para um numero ser divisivel por 6, necessariamente ele deve ser
  divisivel por 2 e 3 concomitantemente }
 
  Write(#10#13#10#13, 'Tecle "Enter" para sair.');
  Readln;
end.