Program dom; Var A : array [1..5000] of integer ; i : byte ; Begin Writeln('введите...

Question

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.
в чем ошибка?

Answer 1

Нужно объявить переменную.
Var n: integer;