c1:

Var i, n: word;

Begin

    Write('nhap n = '); readln(n);

    i:=1;

    While i<=n do 

    Begin

         Write(i, ' '); i:=i+2;

    End;

    Readln

End.

C2:

Var a: array[1..250] of integer;

       i, n, d: byte;

Begin

    Write('n = '); readln(n);

    D:=0;

    For i:=1 to n do 

        Begin

           Write('a[', i, '] = '); readln(a[i]);

           If a[i] mod 2 =0 then inc(d);

        End;

    For i:=1 to n do if a[i] mod 2 = 0

         Then write(a[i], ' ');

    Writeln;

    Write('co ', d, ' so chan);

    Readln

End.

C3

Var s: string;

      i: byte;

Begin

     Write('nhap xau: '); readln(s);

     For i:=length(s) downto 1 do

           write(s[i]);

     Readln

End.