procedure TForm1.Button1Click(Sender: TObject);
var i,s:integer;
begin
S := 0;
for i := 20 to 30 do
S := S + i;
Label1.Caption := IntToStr(S);
end;
