Яндакс лицей напишите функцию export_check(text), которая принимает на вход текст, где каждая строка состоит из: названия товара (строка) цены за единицу товара (вещественное число) количества единиц товара (целое число) (значения внутри строки разделены символом табуляции). ваша программа должна обработать полученные данные и создать документ excel res.xlsx, в котором будут следующие столбцы: «товар», «цена за единицу товара», «количество товара», «общая стоимость товара» (названия столбцов выводить не надо) в столбце «общая стоимость товара» должна содержаться формула, которая рассчитывает общую стоимость товара как произведение цены и количества товара (с использованием простого перемножения ячеек). последней строкой должно идти «итого», c пустыми значениями в столбцах «цена за единицу товара» и «количество товара». в столбце «общая стоимость товара» должна содержаться формула, которая считает общую сумму покупок. (с использованием функции excel сумм)
uses crt;
var a,b:real;
Begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if (a<0) and (b<0)
then
Begin
a:=a+2;
b:=b+2;
writeln('a = ',a);
writeln('b = ',b);
end
else
if (a>0) and (b<0)
then
writeln('a*b = ',a*b)
else
if (a<0) and (b>0)
then
writeln('b-a = ', b-a)
else writeln('Ни одно условие не выполняется');
readln;
end.