viết chương trình tính tổng : t= 1+2+3+-+150 ( sử dụng lệnh for_do)

program Tong;

uses crt;

var T,i: byte;

Begin

         for i:=1 to 150 do T:=T+i;

         write(‘T = ‘,T);

         readln

End.