Составить программу возведения натурального числа в квадрат, используя следующую закономерность: I2 =1 2 2=1+3 З2 =1 + 3 + 5 42=1+3+5+7 п2 = 1 + 3 + 5 + 7 + 9 + . . . + 2 п - 1 Программа Pascal

Предыдущий
вопрос Следующий
вопрос

program Squaring;
var
n, total, i, j: integer;
begin
writeln('Введите натуральное число n:');
readln(n);

total := 0;
j := 1;
for i := 1 to n do
begin
total := total + j;
j := j + 2;
end;

writeln('Квадрат числа ', n, ' равен ', total);
end.