Переставьте строчки местами, чтобы получилась программа с циклом

• var F,k,P : integer;
• begin
• p:=1;
• writeln\('введите целое число'\);
• readln\(F\);
• For k:=1 to F do
• P:=P*k;
• writeln\('ответ=',P\);
• end.