Question

складіть програму яка обчислює вартість традиційного українського кошика у середовищі Лазарус

Answer 1

program UkrBasketCost;

uses

 SysUtils;

const

 EggsPrice = 4.5;  // Ціна за яйця (грн)

 BreadPrice = 3.2; // Ціна за хліб (грн)

 MilkPrice = 8.0;  // Ціна за молоко (грн)

 ApplesPrice = 6.3;// Ціна за яблука (грн)

 HoneyPrice = 12.8;// Ціна за мед (грн)

var

 EggsQty, BreadQty, MilkQty, ApplesQty, HoneyQty: Integer;

 TotalCost: Double;

begin

 // Введення кількості продуктів у кошику

 Write('Введіть кількість яєць: ');

 Readln(EggsQty);

 Write('Введіть кількість хліба: ');

 Readln(BreadQty);

 Write('Введіть кількість молока: ');

 Readln(MilkQty);

 Write('Введіть кількість яблук: ');

 Readln(ApplesQty);

 Write('Введіть кількість меду: ');

 Readln(HoneyQty);

 // Обчислення вартості кошика

 TotalCost := EggsQty * EggsPrice +

              BreadQty * BreadPrice +

              MilkQty * MilkPrice +

              ApplesQty * ApplesPrice +

              HoneyQty * HoneyPrice;

 // Виведення результату

 Writeln('Вартість традиційного українського кошика: ', Format('%.2f', [TotalCost]), ' грн');

 Readln;

end.