var sugar, flour, sweets, money, result : real; //число с плавающей точкой

begin

    Write('Цена 1 кг сахара: ');
    Read(sugar);
    Write('Цена 1 кг муки: ');
    Read(flour);
    Write('Цена 1 кг конфет: ');
    Read(sweets);
    //Write - вывод на экран 
    //Read - ввод с клавиатуры

    Write('Сколько денег дала мама(грн.): ');
    ReadLn(money);

    result:=((money-(3*sugar+2*flour))/sweets)*1000; //умножаем на 1000,чтобы вывести ответ в граммах
    
    result:=Round(result); //округление ответа к целому,объявляем функцию Round
    
    WriteLn('Столько грамм конфет можно купить на сдачу: ', result);

end.