у этой задачи есть более простой способ решения:заметим,что мы складываам подрят идущие нечетные числа,при этом разность между двумя соседними числами будет 2...Тогда P = 1 + 3 + 5 + 7 + (2n - 1) - сумма членов арифметической прогрессии...Тогда P = (первый член + последний член)/2 × колво членов....Зная,чтро первый член будет 1,а последний 2n - 1, и колво этих членов = n,то Р = (1 + 2n - 1)/2×n=2n/2×n = n^2значит сумма первых n членов данной прогрессии будет равна n^2программа:var n: integer;beginreadln(n);writeln(n*n);end.если уж делать эту же программу через цикл while,то:var n,P,t: integer;beginreadln(n);t = 1;P = 0;while (t < 2*n - 1) dobeginP = P + t;t = t + 2;end;writeln(P);end.