Program LowAndHigh;
Uses Crt;
Var MyArray:Array[0..124]Of Byte;
Begin
     ClrScr;
     {min value:Low function}
     WriteLn('Minimum value of MyArray: ',Low(MyArray));
     {max value:High function}
     WriteLn('Maximum value of MyArray: ',High(MyArray));
     ReadLn;
End.
{Written by FlamingClaw}

Program Solution;
Uses Crt;
Var my:Array[Byte]Of Byte;
Begin
     ClrScr;
     WriteLn(High(my));
     ReadLn;
End.
{the result is 255}

var
  MinValue, I: Integer;
 
for I:= Low(MyArray) to High(MyArray) do
begin
  if I = Low(MyArray) then MinValue:= MyArray[I] else
  if MyArray[I] < MinValue then MinValue:= MyArray[I];
end;

uses
    crt;
var
   i, control : longint;
   input, sum : real;
begin
     writeln('Enter the total number of inputs. Then, enter them one by one until you see an output.');
     readln(control);
     sum := -1000000;
     for i := 1 to control do
         begin
              readln(input);
              if input >= sum then
                 begin
                      sum := input;
                 end;
         end;
     writeln(sum:0:4);
     readln;
end.