For4. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, . . . , 10 кг конфет.For8. Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно.For10. Дано целое число N (> 0). Найти сумму 1 + 1/2 + 1/3 + . . . + 1/N (вещественное число).

Var
A:real;
i:byte;
Begin
WriteLn('Введите цену одного кг конфет');
ReadLn(A);
For i:= 1 to 10 do
    Write(A*i,' ');
End.

Пример:
Введите цену одного кг конфет
3.2
3.2 6.4 9.6 12.8 16 19.2 22.4 25.6 28.8 32




Var
A,B:integer;
P:real;
Begin
P:=1;
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
For A:= A to B do
    P:=P*A;
WriteLn(P);
End.



Пример:
A = 3
B = 7
P = 2520



Var
N:integer;
S:real;
Begin
Write('N = ');
ReadLn(N);
S:=0;
For N:= 1 to N do
    S:=S+1/N;
Write('S = ',S)
End.


Пример:
N = 3
S = 1.83333333333333