11 lines
282 B
ObjectPascal
11 lines
282 B
ObjectPascal
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.
|