Решения по Теме 9

program Podschet_pribili;

const
  dol: real = 73.43;

var
  n, b, c: integer;
  tam, nal, p: real;

begin

  Writeln('В настоящее время курс 1$ = ', dol, ' руб.');
  Writeln('Введите цену и количество, закупки из-за границы:');
  write('Цена в $ за 1 смартфон: ');
  readln(c);
  write('Количество: ');
  Readln(b);
  tam := (b * c * dol) + (b * c * dol) * 17 / 100;
  Writeln('Вы заплатите с учетом таможенной пошлины (17%): ', tam:1:2, ' рублей');
  Write('Введите сумму продажи 1 смартфона в рублях: ');
  readln(n);
  nal := (N * B) - (N * B) * 21 / 100;
  Writeln('Прибыль с учетом налога на продажу: ', nal, ' руб.');
  Writeln('Чистая прибыль: ', nal - tam:1:2, ' руб.');
  {Вывел все вычисления, потому что не до конца понимаю,
  как накладывается таможенная пошлина и налог,
  проконсультировался у людей, коготые "Шарят",
  сказали, что это делается именно так :)}



end.