Ввести 2 числа. если их произведение отрицательно, умножить его на 2 и вывести на экран, в противном случае увеличить его в 1, 5 раза и вывести на экран.

var a,b: real;

begin 

  readln(a,b);

  if a*b< 0 then writeln(a*b*2) else writeln(a*b*1.5);

end.

Var       i, n, sum: integer; begin       writeln('введите n');       readln(n);       ///тут возможны два решения, с циклом и без. вот первое:       sum : = 0;       for i : = 1 to n do               if i mod 2 = 0 then                       sum : = sum + i;       writeln(sum);             ///второе, более быстрое, использующее формулу суммы первых членов арифметической прогрессии:       if n mod 2 = 1 then n : = n - 1;       + n) div 2) * n div 2); end.

126 дисков

Объяснение:

Рассмотрим 6го покупателя

х-было  

0,5х+1-продал

осталось 0

х-(0,5х+1)=0

х-0,5х-1=0

0,5х=1

х=1:0,5=2

Аналогично 5й покупатель

х-(0,5х+1)=2

х-0,5х-1=2

0,5х=3

х=3:0,5=6

Аналогично 4й покупатель

х-(0,5х+1)=6

х-0,5х-1=6

0,5х=7

х=7:0,5=14

Аналогично 3й покупатель

х-(0,5х+1)=14

х-0,5х-1=14

0,5х=15

х=15:0,5=30

Аналогично 2й покупатель

х-(0,5х+1)=30

х-0,5х-1=30

0,5х=31

х=31:0,5=62

Аналогично 1й покупатель

х-(0,5х+1)=62

х-0,5х-1=62

0,5х=63

х=63:0,5=126

ответ: Попов принес на ярмарку 126 дисков