Фруктовый магазин продает яблоки по АФруктовый магазин продает яблоки по А руб.…

12345678910111213141516171819202122232425262728293031var a, b, c, x, y, z: integer; Summa1, Summa2: integer; begin write ('Яблоки (руб/кг): '); readln (a); write ('Груши (руб/кг): '); readln (b); write ('Апельсины (руб/кг): '); readln (c); writeln; writeln ('Понедельник: '); write ('Продано кг яблок: '); readln (x); write ('Продано кг груш: '); readln (y); write ('Продано кг апельсинов: '); readln (z); Summa1: =x*a+y*b+z*c; writeln; writeln ('Вторник: '); write ('Продано кг яблок: '); readln (x); write ('Продано кг груш: '); readln (y); write ('Продано кг апельсинов: '); readln (z); Summa2: =x*a+y*b+z*c; writeln; writeln ('Понедельник: ', Summa1, ' руб; Вторник: ', Summa2, ' руб'); end.