Program Pzim ;
Var i,soma:integer;
Begin

  For i:=100 to 200 do
  Begin
    If (i mod 13<>0) then
    Begin
      soma:=soma+i;
    End;
  End;
Writeln('A soma dos números que não são múltiplos de 13, compreendidos entre 100 e 200 é ', soma);
readkey();

End.


Program fixacaociclo4 ;
var n:Real;
n1,n2,n3,n4,i:integer;
Begin
  For i:=1 to 20 do
  Begin
    Writeln('Introduza um número.');
    Read(n);
    If ((n>=0) and (n<=25)) then
    begin
      n1:=n1+1;
    end
    else
    if ((n>25) and (n<=50)) then
    begin
      n2:=n2+1;
    end
    else
    if ((n>50) and (n<=75)) then
    begin
      n3:=n3+1
    end
    else
    if ((n>75) and (n<=100)) then
    begin
      n4:=n4+1
    end
  end;
Writeln('Existem ', n1, ' números compreendidos entre 0 e 25');
Writeln('Existem ', n2, ' números compreendidos entre 25 e 50');
Writeln('Existem ', n3, ' números compreendidos entre 50 e 75');
Writeln('Existem ', n4, ' números compreendidos entre 75 e 100');


End.

Program fixacaociclo5 ;
Var n,i,d:integer;
Begin
Writeln('Escreva um número inteiro e positivo');
Read(n);
For i:=1 to n do
begin
If (n mod i=0) then
d:=d+1;
end;
Writeln('O número ', n, ' tem ', d, ' divisores');



End.

Program fixacaociclo6 ;
Var n,i,d:integer;
Begin
Writeln('Introduza um número natural.');
Read(n);
For i:=1 to n do
begin
If(n mod i = 0) then
d:=d+1;
end;
If(d=2) then
Writeln('O número é primo.')
else
Writeln('O número é primo');



End.


Program fixacaociclo7 ;
var i, a, b, c, d, aux: integer;

begin
clrscr;
for i:= 1 to 5 do
    begin
    write('Informe um valor: ');
    readln(a);
    write('Informe um valor: ');
    readln(b);
    write('Informe um valor: ');
    readln(c);
    write('Informe um valor: ');
    readln(d);
    writeln('Numeros digitados:    ', a:6, b:6, c:6, d:6);
    if a<b then
       begin
       aux := a;
       a   := b;
       b   := aux;
       end;
    if a<c then
       begin
       aux := a;
       a   := c;
       c   := aux;
       end;
    if a<d then
       begin
       aux := a;
       a   := d;
       d   := aux;
       end;
    if b<c then
       begin
       aux := b;
       b   := c;
       c   := aux;
       end;
    if b<d then
       begin
       aux := b;
       b   := d;
       d   := aux;
       end;
    if c<d then
       begin
       aux := c;
       c   := d;
       d   := aux;
       end;
    writeln('Em ordem decrescente: ', a:6, b:6, c:6, d:6);
    readkey;
    end;
end.