Задачи на циклы в Python: 1. Дано вещественное число Price, являющееся ценой одного килограмма конфет, вывести цену 2,3,4,5….10 кг конфет
2. Дано вещественное число Price, являющееся ценой одного килограмма конфет, вывести цену 0.1,0.2,0.3….0.9 кг конфет
3. Дано вещественное число Price, являющееся ценой одного килограмма конфет, вывести цену 1.1, 1.2, 1.3….1.9, 2.0 кг конфет

1. Современное решение
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  Writeln(n,'! = ',2.To(n).Aggregate(BigInteger(1),(i,j)->i*j))
end.

Примеры
n= 20
20! = 2432902008176640000

n= 43
43! = 60415263063373835637355132068513997507264512000000000

2. "Школьный древний вариант"
// Free Pascal 3.0.0

var
  i,n:longint;
  P:int64;

begin
  Write('n= '); Read(n);
  if n>20 then
    Writeln('Слишком большое n, допустимо 1,2, ... 20')
  else begin
    P:=1;
    for i:=2 to n do P:=P*i;
    Writeln(n,'! = ',P);
    end
end.

Примеры
n= 20
20! = 2432902008176640000

n= 43
Слишком большое n, допустимо 1,2, ... 20

Если не делать проверки n, было бы
n= 43
43! = -7904866829883932672

1.
var x:integer;
begin
readln(x);
if x>0 then writeln(x,' - положительное')
 else if x<0 then writeln(x,' - отрицательное')
  else writeln(x,' = 0');
end.

Пример:
-125
-125 - отрицательное

2.
var x,y,z,k:integer;
begin
readln(x,y,z);
if x>0 then k:=k+1;
if y>0 then k:=k+1;
if z>0 then k:=k+1;
writeln('количество положительных чисел = ',k);
end.

Пример:
-125 84 67
количество положительных чисел = 2

3.
var x:integer;
begin
readln(x);
if x mod 2=0 then writeln(x,' - чётное')
 else writeln(x,' - нечётное');
end.

Пример:
125
125 - нечётное