1.

Cú pháp câu lệnh while…do

while <điều kiện> do <câu lệnh>;

trong đó :
Điều kiện là một phép so sánh 

câu lệnh có thể là câu lệnh đơn giản hay câu lệnh ghép

câu lệnh này được thực hiện 

Bước 1 : Kiểm tra câu lệnh

Bước 2 : Nếu câu lệnh sai, câu lệnh sẽ bị bỏ qua và việc thực hiện lệnh lặp kết thúc. Nếu câu lệnh đứng, thực hiện câu lệnh và quay lại bước 1 

2. i:=1;

    j:=3;

 k:=3;

3. 

Program bai_tap;

Uses crt;

var 

n,T,i: integer;

Begin

Clrscr;

repeat

write('Nhap n: ');

Readln(n);

until (n>=0);

T:=0;

For i:=1 to n do T:=T+i;

Write(T);

Readln;

end.