Program abc;
const
n = 10;
var
m: array [1..n] of integer;
i: integer;
begin
for i := 1 to n do
begin m[i] := sqr(i) - 1;
writeln(m[i]);
end;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.