Очень нужна с exel

Составьте таблицу покупок: № товара, наименование товара, цена, количество, стоимость. 5%-ая
скидка на покупку предоставляется в том случае, если стоимость покупки превысит 5000 руб., 10%-ая,
если стоимость покупки превысят 20000 руб. Напишите список не менее чем из 10 наименований
товаров и с использованием функции «ЕСЛИ» рассчитайте итоговую сумму​

1695-1696 – пётр первый делал свои знаменитые азовские походы.

1703 – пётр первый основал санкт-петербург. событие произошло 16 мая.

1709 – была полтавская битва, она произошла 27 июня.

пе́рвая мирова́я война́(28 июля  1914 —  11 ноября 1918 гг)

program ssd;

  uses crt,graph;

  var   a,a1,a2,a3: integer;

  begin

  clrscr;

  writeln('введите трехзначное число');

  readln(a);

  a1: = a mod 10;

  a2: =(a div 10) mod 10;

  a3: = a div 100;

  writeln('      ',a1,a2,a3);

  readkey;

end.

пщояк 17 27 16 33 17

нщёп 15 27 7 17

например такие числа

954-459=495