Pascal

2.Efetue a leitura de 4 números inteiros, e apresentar os números que são divisíveis por 2 e por 3.

program Ex2;
USES CRT;
VAR
num: array[1..4] of integer; x: integer; begin for x:= 1 to 4 do begin writeln ('digite o [',x,'] numero'); readln (num[x]); end; for x:= 1 to 4 do begin if (num[x] mod 2 = 0) and (num[x] mod 3 = 0) then writeln (' O numeros divisivel por 2 e 3 eh',num[x]); end; readkey; end. 13.Crie um programa usando sub-rotinas de tal forma que, o programa principal deverá ser um menu de opções para que o usuário efetue as 4 operações matemáticas (+ - * /). Esse menu deverá apresentar as opções de 1 a 5, sendo 1 – adição, 2 – subtração, 3 – multiplicação, 4 – divisão e 5 – sair. Ao escolher qualquer uma das opções acima o sistema deverá chamar as respectivas sub-rotinas solicitando ao usuário 2 números e apresentando a operação desejada com esses números.

program Ex13; uses crt; var n1,n2,opt:real; begin repeat writeln('digite a opcao desejada'); writeln('1- para adcao'); writeln('2- para subtracao'); writeln('3- para multiplicacao'); writeln('4- para divisao'); writeln('5- para sair'); readln(opt); clrscr; until(opt<=5); if opt=1 then begin writeln('digite o primeiro numero'); read(n1); writeln('digite o segundo numero'); read(n2); writeln('a adcao e=' ,n1+n2:0:1); end else begin if opt=2 then begin writeln('digite o primeiro numero'); read(n1); writeln('digite o segundo numero'); read(n2); writeln('a subtracao e=' ,n1-n2:0:1); end else begin if opt=3 then begin writeln('digite o primeiro numero'); read(n1); writeln('digite o segundo numero'); read(n2); writeln('a multiplicacao e=' ,n1*n2:0:1);