Câu 1:
Uses crt;
Var i:integer;
Begin
     clrscr;
     for i:=1 to 20 do
      writeln('Pascal');
     readln;
End.

Câu 3:
Uses crt;
Var i,tong:integer;
Begin
     clrscr;
     tong:=0;
     for i:=1 to 100 do
      tong:=tong+i;
     writeln(tong);
     readln;
End.

Câu 3:
Uses crt;
Var i:integer; tich:int64;
Begin
     clrscr;
     tich:=1;
     for i:=1 to 15 do 
      tich:=tich*i;
     writeln(tich); readln;
End.
Câu 2 mình hong hiểu đề bài lắm nên là hong biết làm ạ. Chúc cậu học tốt