Program dom;
Var
A : array [1..5000] of integer ;
i : byte ;
Begin
Writeln('введите количество станций-n');
Readln(n);
For i:=1 to 255 do
Readln (a[i]);
end.
в чем ошибка?