i, soma: integer;beginclrscr;soma:=0;for i:= 100 to 200 do begin if i mod 7 = 0 then begin soma:= soma + i; end; end;writeln('A soma dos numeros multiplos de 7 de 100 a 200 e: ', soma);readkey;end.22. Escrever umalgoritmo/programa em Pascal que escreve a soma dos numeros que nao saomultiplos de 13 entre 100 e 200.program ex22;uses crt;var i, soma: integer;beginclrscr;soma:=0;for i:= 100 to 200 do begin if i mod 13 <> 0 then begin soma:= soma + i; end; end;writeln('A soma dos numeros nao multiplos de 13 de 100 a 200 e: ', soma);readkey;end.23. Escrever umalgoritmo/programa em Pascal que le 20 valores, um de cada vez, e conta quantosdeles estao em cada um dos intervalos [0, 25], (25, 50], (50, 75],(75, 100], escrevendo esta informacaoprogram ex23;uses crt;var i, x, cont1, cont2, cont3, cont4: integer;beginclrscr;cont1:=0; cont2:=0; cont3:=0; cont4:=0;for i:= 1 to 20 do begin write('Informe um valor (0-100): '); readln(x); if (x>=0) and (x<=25) then cont1:=cont1 + 1; if (x>25) and (x<=50) then cont2:=cont2 + 1; if (x>50) and (x<=75) then cont3:=cont3 + 1; if (x>75) and (x<=100) then cont4:=cont4 + 1; end;writeln('No intervalo 0 - 25 existem ', cont1, ' numeros.');writeln('No intervalo 26 - 50 existem ', cont2, ' numeros.');writeln('No intervalo 51 - 75 existem ', cont3, ' numeros.');writeln('No intervalo 76 - 100 existem ', cont4, ' numeros.');readkey;end.24. Escrever umalgoritmo/programa em Pascal semelhante ao anterior que calcula as mediasaritmeticas de cada intervalo e as escreve, juntamente com o numero de valoresde cada intervalo.program ex24;uses crt;vari, x, cont1, cont2, cont3, cont4, soma1, soma2, soma3, soma4: integer;m1, m2, m3, m4: real;beginclrscr;cont1:=0; cont2:=0; cont3:=0; cont4:=0;soma1:=0; soma2:=0; soma3:=0; soma4:=0;for i:= 1 to 20 do begin write('Informe um valor (0-100): '); readln(x); if (x>=0) and (x<=25) then begin cont1:=cont1 + 1; soma1:=soma1 + x; m1:=soma1 / cont1; end; if (x>25) and (x<=50) then begin cont2:=cont2 + 1; soma2:=soma2 + x; m2:=soma2 / cont2; end; if (x>50) and (x<=75) then begin cont3:=cont3 + 1; soma3:=soma3 + x; m3:=soma3 / cont3; end; if (x>75) and (x<=100) then begin cont4:=cont4 + 1; soma4:=soma4 + x; m4:=soma4 / cont4; end; end;writeln('No intervalo 0 - 25 existem ', cont1, ' numeros e a mediae: ', m1:0:2);writeln('No intervalo 26 - 50 existem ', cont2, ' numeros e a media e: ',m2:0:2);writeln('No intervalo 51 - 75 existem ', cont3, ' numeros e a media e: ',m3:0:2);writeln('No intervalo 76 - 100 existem ', cont4, ' numeros e a media e: ',m4:0:2);readkey;end.25. Escrever umalgoritmo/programa em Pascal que le um numero e calcula e escreve quantosdivisores ele possui.program ex25;uses crt;var x, i, cont: integer;beginclrscr;write('Informe um numero: ');readln(x);cont:=0;for i:= 1 to x do begin if x mod i = 0 then cont:=cont + 1; end;writeln('O numero ', x, ' possui ', cont, ' divisores.');readkey;end.26. Escrever umalgoritmo/programa em Pascal que le um numero e calcula e escreve o seufatorial.program ex26;uses crt;var x, i: integer;fat: longint;beginclrscr;write('Informe um numero: ');readln(x);fat:=1;for i:= 1 to x do begin fat:=fat * i; end;writeln('O fatorial de ', x, ' e: ', fat);readkey;end.27. Escrever um algoritmo/programaem Pascal que le um numero e escreva se ele "e primo" ou "nao eprimo" program ex27;uses crt;var x, i, cont: