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

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.