For12°. Дано целое число N (> 0). Найти произведение 1.1 · 1.2 · 1.3 · … (N сомножителей).
Не понял, для чего эти красивые значки, но в общем вот: program hello_world; var n, i: integer; v,x: real; begin write('Введите число n - '); read(n); x:= 1.2; v:=1.0; for i:=1 to n do begin v:= v*x; x:= x + 0.1 end; writeln('Итог ',v:6:2);
И end. в конце
Последние 2 строки writeln('Итог ' v:6:2) end.