напишете программу на языке Паскаль. составить программу нахождения суммы п первых нечетных чисел

program zz1;

var n, r, i:integer; / / задаем переменные целого типа

begin

write (' введите заданное число ');

read (n); / / вводим с клавиатуры n

for i:=1 to n * 2 do / / организуем цикл, в котором переберем все числа от 1 до 2n

r:=r + i; / / вычисляем сумму нечетных чисел

write (' сумма n первых нечетных чисел = ', r); / / выводим ответ

end.