Помогите,безотлагательноПрограммка в паскале,через whileДано естественное число n.Вычислить

У этой задачки есть более обычный способ решения:
заметим,что мы складываам подрят идущие нечетные числа,при этом разность меж двумя соседними числами будет 2...Тогда
P = 1 + 3 + 5 + 7 + (2n - 1) - сумма членов арифметической прогрессии...
Тогда P = (1-ый член + заключительный член)/2 колво членов....Зная,чтро 1-ый член будет 1,а заключительный 2n - 1, и колво этих членов = n,то Р = (1 + 2n - 1)/2n=2n/2n = n^2
означает сумма первых n членов данной прогрессии будет равна n^2

программа:
var n: integer;
begin
readln(n);
writeln(n*n);
end.

если уж делать эту же программку через цикл while,то:
var n,P,t: integer;
begin
readln(n);
t = 1;
P = 0;
while (t lt; 2*n - 1) do
begin
P = P + t;
t = t + 2;
end;
writeln(P);
end.