Приведу пример программы на языке Паскаль, которая будет считывать введенную сумму и выводить возможность покупки 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 кг апельсинов и выведет сообщение о возможности или невозможности их покупки.