Создать программу, которая вычисляет стоимость покупки (купили гречку, сахар, муку, соль. Количество и цена задается пользователем и вводится с клавиатуры. Значит переменных будет по две на каждый вид товара, то есть 8 сменных + одна переменная как результат. Тип величины можно взять real)

program buys;

var

a, b, c, d, e, f, g, h, L, u, o, p, i, s: real;

begin

 writeln ('Введите кол-во упаковок\кг гречки');

 read (a);

 writeln ('Введите цену гречки');

 read (b);

 writeln ('Введите кол-во упаковок\кг сахара');

 read (c);

 writeln ('Введите цену сахара');

 read (d);

 writeln ('Введите кол-во упаковок\кг муки');

 read (e);

 writeln ('Введите цену муки');

 read (f);  

 writeln ('Введите кол-во упаковок\кг соли');

 read (g);

 writeln ('Введите цену соли');

 read (h);

 u:=a*b;

 o:=c*d;

 p:=e*f;

 i:=g*h;

 s:=u+o+p+i;

 writeln ('Стоимость покупки = ', s);

end.

Объяснение: