... beginn:=n+1; S:=S+n ;end;write(‘Tong S= ’,S,‘ va ’,n,’ la so tu nhien nho nhat sao cho S>1000’);Readln;End.Tong S= 1035 va 45 la so tu nhien nho nhat sao cho S>1000 VD1: Viết chương ... phép so sánh). Câu lệnh là a:=a+1 (câu lệnh đơn). VD2: While a>b do Begin write(‘a>b’); a:=a-1; End;Trong đó : While, do là các từ khóa. Điều kiện là a>b (chứa phép so sánh)....