._. Bạn tham khảo nhé (thật ra là có thể `Repeat ...Until ` nữa :))))
Cách `1` Program Hotboy;
Uses crt;
Var S,i: byte;
Begin
Clrscr;
S:=0;
For i:=1 to 10 do
S:=S+i;
Inc(i);
Write('tong 10 so do la',S);
Readln
End.
Cách `2`
Program Hotboy ;
Uses crt;
Var S,i:byte;
Begin
Clrscr;
i:=1; S:=0;
While i<=10 do
Begin
S:=S+i;
End;
Write('Tong can tim la',S);
Readln
End.