Viết chương trình tính tổng các số tự nhiên liên tiếp nhỏ nhất lớn hơn 10?

Var s,a, : integer;

begin

a:=0;  s:=0;

While s<=10 do

 Begin

a:=a+1;

s:=s+a;

 End;

write(‘Vay tong cua chung=’,s);

Readln

End.
Nhớ tick cho mình nhé! Thanks so much :33