Mn làm giúp e c1 và c3 với ạ...e cảm ơn ạ

Câu 1:

Program baitap;

Uses crt;

Var n,i,z:integer;

      S,T,R,x:longint;

Begin

Clrscr;

S:=0; T:=0; R:=0; x:=1;

Write('n='); Readln(n);

For i:=1 to n do

     Begin

     S:=S+(i*i);

     T:=T+(i*i*i);

     For z:=1 to n do x:=x*i;

     R:=R+x;

     x:=1;

     End;

Writeln('S=',S);

Writeln('T=',T);

Writeln('R=',R);

Readln

End.

Câu 2:

Program baitap;

Uses crt;

Begin

Clrscr;

Writeln('*');

Writeln('**');

Writeln('***');

Writeln('****');

Writeln('*****');

Writeln('******');

Writeln('*******');

Writeln('---------------');

Writeln('              *');

Writeln('            **');

Writeln('          ***');

Writeln('        ****');

Writeln('    *****');

Writeln('  ******');

Writeln('*******');

Writeln('---------------');

Writeln('      *');

Writeln('     **');

Writeln('    ***');

Writeln('   ****');

Writeln('  *****');

Writeln(' ******');

Writeln('*******');

Writeln('---------------');

Writeln('*******');

Writeln('******');

Writeln('*****');

Writeln('****');

Writeln('***');

Writeln('**');

Writeln('*');

Writeln('---------------');

Writeln('               O');

Writeln('            *O*');

Writeln('          *O*O');

Writeln('        *O*O*O*');

Writeln('    O*O*O*O*O');

Writeln('  *O*O*O*O*O*');

Writeln('O*O*O*O*O*O*O');

Writeln('---------------');

Writeln('*******');

Writeln(' ******');

Writeln('  *****');

Writeln('   ****');

Writeln('     ***');

Writeln('      **');

Writeln('       *');

Readln

End.