Viết chương trình tính tổng các số nguyên từ s=30+31+…+50 *

program bai1;

uses crt ;

var i,s:integer;

begin

clrscr;

s:=0;

for i:=30 to 50 do

S:=S+i;

write(ket qua la’,s);

readln;

end.