ДАЮ 30 БАЛЛОВ! Решите задачу по информатике, 6 класс. Нужно составить программу для...

Question

ДАЮ 30 БАЛЛОВ! Решите задачу по информатике, 6 класс. Нужно составить программу для PascalABC.
Задача:
Составьте программу, которая рассчитывает стоимость каждой покупки. Цена и количество купленных карандашей и ручек вводятся с клавиатуры. Все данные выведите в виде следуйщей таблицы, которая изображена НА ФОТО.
ПОМОГИТЕ!!!!!НАДО СРОЧНО!!!!!!

---

Answer 1

Var
  c1, c2, p1, p2: integer;
 begin
  write('Введите стоимость карандаша:');
  read(p1);
  write('Введите количество купленных карандашей:');
  read(c1);
  write('Введите стоимость ручки:');
  read(p2);
  write('Введите количество купленныx ручек:');
  read(c2);
  writeln;
  writeln('Наименование       Цена за 1шт.     Кол-во      Стоимость');
  writeln('Карандаши          ', p1, '                ', c1, '           ', p1 * c1);
  writeln('Ручки              ', p2, '                ', c2, '           ', p2 * c2);
end.