Viết chương trình tính tổng 15 số tự nhiên đầu tiên

$#Quân$

program tinh_tong;

uses crt;

var i,t:integer;

begin

     clrscr;

     t:=0;

     for i:=1 to 15 do t:=t+i;

     write(‘Tong 15 so tu nhien dau tien la: ‘,t);

     readln;

end.