Ответ:
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.
Объяснение: