У бабушки есть куры и утки. Их всего 20 штук. Одна курица весит 3 кг, одна утка 10 кг? Составить программу, которая позволяет, ввести количество кур, и на ходить общий вес птиц?

program massa;

var m: real; / /m - масса птиц

k: integer; / /k - количество кур

begin

writeln ('Введите количество кур');

readln (k); /

m : = k * 3 + (20 - k) * 10; / /формула для расчета массы:

//количество кур умножаем на 3 кг, количество уток - на 10 кг.

//Находим сумму масс.

write ('Масса всех птиц: ', m : 3 : 1, ' кг')

end.