Viết chương trình Tính tổng các số âm bé hơn 300

Sửa đề: số âm mà bé hơn 300 thì có vô số nên mình làm số dương.

uses crt;
var i,s:longint;
begin 
clrscr;
   s:=0;
   for i:=1 to 299 do s:=s+i;
   writeln('Tong la: ',s);
readln 
end.

Số âm nhỏ hơn 300 là rất nhiều, nên phải là tính số dương mới đúng, hoặc là tính tổng các số âm lớn hơn -300 cũng đúng

*Tính tổng các số dương nhỏ hơn 300

program tong_duong;

ues crt;

var i,t:longint;

begin

    clrscr;

    t:=0;

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

    write('Tong cac so duong be hon 300 la: ,t);

    readln;

end.

*Tổng các số âm lớn hơn -300

program tong_am;

ues crt;

var i,t:longint;

begin

    clrscr;

    t:=0;

    for i:=-299 to -1 do t:=t+i;

    write('Tong cac so am lon hon -300 la: ,t);

    readln;

end.