viết chương trình tính tổng các số tự nhiên trong phạm vi từ 1-25(dùng lệnh lặp for …do.Thông báo kết quả ra màn hình

program tong;

uses crt;

var i,s:longint;

begin

clrscr;

s:=0;

for i:=1 to 25 do

s:=s+i;

writeln(‘tong la:’,s);

readln

end.

~Xin hay nhất ạ~