program AgilaStudy;
{$mode objfpc}{$H+}{$assertions on}

var Minutes: array[1..3] of Integer; I, Total: Integer;
begin
  Minutes[1] := 1; Minutes[2] := 2; Minutes[3] := 3;
  Total := 0;
  for I := Low(Minutes) to High(Minutes) do Total := Total + Minutes[I];
  writeln(Total);
end.