Напишите формулу сумма скидки. На фото есть формула, но она с ошибкой Предприятие производит мебель. При заказе на изготовление
более 2 изделий из товарных групп «Диваны» или «Кресла» заказчику
предоставляется скидка 10%; при заказе на изготовление более 10 изделий из товарной группы «Стулья» заказчику предоставляется скидка 5%; в других случаях скидка не предоставляется. Определить сумму скидки, предоставляемую заказчику.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,-28,25); a.Println;
  Writeln('П = ',a.Aggregate(BigInteger(1),(p,q)->p*q));
  Writeln('Положительных элементов: ',a.Where(t->t>0).Count);
  var imin:=a.IndexMin;
  Writeln('Номер минимального элемента- ',imin+1,
    ', его значение равно ',a[imin])
end.

Пример
4 10 23 9 22 -6 -28 -24 20 -28 12 -18 10 -24 -21
П = -447760579166208000
Положительных элементов: 8
Номер минимального элемента- 7, его значение равно -28

1)
var a:string;
    i, o: Integer;
    p: Real;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (sqr(o) = p*p*p) then writeln('true')
        else writeln('false');
end.

2)
var a:string;
    i, o, p: Integer;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (p mod 3 = 0) then writeln('true')
        else writeln('false');
end.

3)
var a, b, c: real;
begin
     readln(a, b, c);
     if ((a = b) and (b = c)) then writeln('true')
        else writeln('false');
end.

Всё проверено, удачи:)