var
  Sum10, I: Integer;
begin
  Sum10 := 0;

  //defer analog: finally runs on any
  //exit path from the block
  try
    for I := 1 to 10 do
      Sum10 := Sum10 + I;
  finally
    WriteLn('sum10: ', Sum10);
  end;
  //printed 'sum10: 55'
end.