c1

uses crt;

var a: array[1..100] of integer;

    i,n: integer;

begin

clrscr;

  Write('nhap n: ');

  readln(n);

  while n>100 do

begin

Write('nhap lai n: ');

readln(n);

end;

  for i:=1 to n do

    begin

      write('nhap so thu ',i,': ');

      readln(a[i]);

      while abs(a[i])>200 do

        begin

          write('nhap lai so thu ',i,': ');

          readln(a[i]);

        end;

     end;

write('mang vua nhap la: ');

for i:=1 to n do write(a[i]:3);  

  readln;

end.

BT1:

Program NN;
Uses crt;
Var A: array[1..100] of longint;
    n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do Read(A[i]);
        For i:=1 to n do Write(A[i],' ');
        Readln
End.

BT2:

Program NN;
Uses crt;
Var A: array[1..100] of longint;
    n,i,sc,s,k: longint;
Begin
        Clrscr;
        Write('Nhap n,k: '); Readln(n,k);
        For i:=1 to n do
        Begin
                Read(A[i]);
                If A[i] mod 2 = 0 then sc:=sc+A[i];
                If A[i] mod k = 0 then s:=s+A[i];
        End;
        Writeln('1. ',sc);
        Writeln('2. ',s);
        Write('3. ');
        For i:=1 to n do
                If A[i] mod 2 <> 0 then Write(A[i],' ');
        Readln
End.