Câu 1:

Cú pháp: for <variable>:=<giá trị đầu> to <giá trị cuối> do <code>;

Cách thức hoạt động:

+ Lặp 1 giá trị gì đó đến một giới hạn nhất định và thực hiện bởi 1 câu lệnh.

+ Sau mỗi lần lặp thì <variable>+1

Câu 2:

t>20 (true) -> t=t-10=90; n=n+5=6

t>20 (true) -> t=t-10=80; n=n+5=11

t>20 (true) -> t=t-10=70; n=n+5=17

t>20 (true) -> t=t-10=60; n=n+5=22

t>20 (true) -> t=t-10=50; n=n+5=27

t>20 (true) -> t=t-10=40; n=n+5=32

t>20 (true) -> t=t-10=30; n=n+5=37

t>20 (false) -> t=t-10=20; n=n+5=42

Vậy $T=20;n=42$

Câu 3:

uses crt;
var n,i,s:longint;
begin
clrscr;
   readln(n);
   i:=4;s:=2;
   while i<=2*n do
      begin
         inc(s,i);
         inc(i,2);
      end;
   write(s);
readln
end.