*Khi A lớn nhất và A >=1500

Var i,A: integer;
Begin

         While A<1500 do

         Begin

                  i:=i+1;

                  A:=A+i;

         End;

   Write('Tong cua A la: ',A); [Hoặc Write('Tong cua A la:',A,' va can co ',i,' so') {Để in ra màn hình cần bao nhiêu số để có tổng >1500 ]

Readln

End.

*Cú pháp: While <điều kiện> do <câu lệnh>;
*Trong đó

*Cú pháp: For < Biến đếm > := < Giá trị đầu > to < Giá trị cuối > do < Câu lệnh >.

*Giải thích cú pháp:

- For, to, do là các từ khóa.

- Biến đếm là biến kiểu nguyên.

- Giá trị đầu, giá trị cuối là các giá trị nguyên.
Good luck for you! :D

Thật ra là mình chưa rõ lắm về các câu lệnh còn lại, chỉ biết sơ sơ về cách làm câu lệnh này thôi, không đúng lắm nên bạn coi tham khảo thôi nha! Thiếu chỗ nào thì bù vào đó (chắc đúng 80-85% :(( )

Nếu chưa học câu lệnh này thì rep lại cho mình để mình dùng mấy câu lệnh đã học từ b8 trở về trước nhá! Good luck for you :D 

1, I decided to talk with her face-to-face so that we could understand each other more easily.
2, Nowadays,people tend to use Facebook, Twitter and other social networks more than other traditional forms of communication.
3, The Internet will be keeping for its superior roles in communication in the next decades.
4, She refused to have a direct talk with me, and she asked me to chat on Yahoo messenger.
5, Messaging is convenient sometimes, but it easily causes confusion or misunderstanding.