НАЙТИ ОШИБКУ
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.

23050309    3   01.03.2020 13:25    0