Использование циклов - Pascal (88387)

Формулировка задачи:

Подскажите правильно ли я написал программу для цикла "For" Условие в вложение..

program cicleFor;
var n:integer;
x,P:real;
begin
cls;
write ('n=');
read(n);
for n:=1 to 6 do
P:=n+2*x;
writeLn ('P=', P);
end.

Решение задачи: «Использование циклов»

Листинг программы

program cicleWhileSumm;
var n:integer;
x,P:real;
begin
cls;
writeLn('x=');
readLn(x);
P:=1;
n:=1;
while n <= 6 do
begin
P:=P*(n+2*x);
n:=n+1;
end;
writeLn('P=', P);
end.

Объяснение кода листинга программы

Список действий в коде:

Задаются начальные значения переменных n, x и P.
С помощью цикла while происходит последовательное увеличение значения переменной n от 1 до 6.
Внутри цикла происходит вычисление значения переменной P с помощью формулы P = P*(n+2*x).
После завершения цикла выводится значение переменной P.