По каким признакам можно судить о наступлении эпохи информационного общества

паскаль, одномерный массив

var a: array [1..6] of integer; i, max: integer;

begin

for i: =1 to 6 do read(a[i]);

max: =a[1];

for i: =1 to 6 do

if a[i]> max then max: =a[i];

writeln(max); readln; end.

на вход "черного ящика"подается число 125. о чем в этом случае говорит отказ: кажеться а