Question

ПОМОГИТЕ НАЙТИ ОШИБКУ
var n,x: integer;

y: array [1..10] of integer;

begin

readln (n);

writeln ('число элементов n=',n);

for x:=1 to n do;

y(x):= x*x;

writeln ;x;' '.y(x);

end.

Answer 1

Последние строки должны быть такими

y[x]:= x*x;

writeln (x,' ',y[x]);

end.