Килограмм апельсинов стоит 5500ру.У Сони есть сумма в N руб. Сможет ли Соня купить 3 кг апельсинов? Ввод сумма 1500.ввывод соня не может купить 3 кг апельсинов. Ввод сумма 25000. Вывод соня может купить 3 кг апельсинов. Нужна программа для паскаль

Предыдущий
вопрос Следующий
вопрос

Приведу пример программы на языке Паскаль, которая будет считывать введенную сумму и выводить возможность покупки 3 кг апельсинов:

program BuyOranges;
var
pricePerKg, sum, cost: integer;
begin
pricePerKg := 5500;
writeln('Введите сумму в рублях:');
readln(sum);
cost := pricePerKg * 3;
if sum >= cost then
writeln('Соня может купить 3 кг апельсинов.')
else
writeln('Соня не может купить 3 кг апельсинов.');
end.

Пользователь должен ввести сумму в рублях, после чего программа расчитает стоимость 3 кг апельсинов и выведет сообщение о возможности или невозможности их покупки.