Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
min і max нужно присвоить а[1].
var
i,n: integer;
begin
readln(n);
for i: =1 to n-1 do write(i*i: 5);
end.
Популярные вопросы