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

program frank; var k,y,obshiives: integer; beginwriteln('введи кол-во кур '); readln(k); y: =20-k; obshiives: =(k*3)+(y*10); writeln('общий вес птиц: = ',obshiives); end.

var

x: real;

begin

readln(x);

writeln(round(x));

end.

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.