Program bt3;

Var

      a: array [1... 200] of integre;

      i,  n, t: integer

      begin

               Clrscr ;

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

              For i:= 1 to n do

       Begin 

               Write(a[i]=)  readln(a[i] 

               End 

               T:=0 

                For i:=1 to n do 

               If a[i]  mod 2 = 1 then t:=t+ sqr(a[i] ;

                 Writeln (' tong cac phan tu le la '   ,  t) ;

            Readln 

End. 

      

Câu 2:

Program FNG;
Uses crt;
Var St: String;
    i: longint;
Begin
        Clrscr;
        Write('Nhap St: '); Readln(St);
        Writeln('Do dai: ',length(St));
        For i:=1 to length(St) do
                If St[i]=#32 then Delete(St,i,1);
        Write('St = ',St);
        Readln
End.

Câu 3:

Program FNG;
Uses crt;
Var A: array[1..200] of longint;
    i,s: longint;
Begin
        Clrscr;
        s:=0;
        For i:=1 to 200 do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i] mod 2 = 1 then s:=s+A[i];
        End;

        Write('S = ',s);
        Readln
End.