C1.

Var f: text;

      S: longint;

      a: integer;

Begin

    assign(f, 'dulieu.txt'); reset(f);

    S:=0;

    While not eof(f) do 

         Begin

              Read(f, a); S:= S+a;

         End;

    Write('tong: ', s);

    Readln

End.

C2.

var t, a, b, c ,d: real;

      p, q, l, k: byte;

Function lt(x: real; y: byte): real;

  Var i: byte;

  Begin

     lt:=1;

     For i:=1 to y real lt:=lt*x;

  End;

Begin

     Write('nhap a, b, c, d: ');

     readln(a, b, c, d);

     Write('nhap p, q, l, k: '); 

     Readln(p, q, l, k);

     T:=lt(a, p) + lt(b, q) + lt(c, l) + lt(d, k);

     Write('t = ', t:14:2);

     Readln

End.

C3.

Var a: array[1..10] of word;

       i: byte;

Function kt(x: word): boolean;

   Begin

       If x mod 3=0 then exit(true);

       Exit(false);

   End;

Begin

    For i:=1 to 10 do if kt(a[i])

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

    Readln

End.