Question

помогите пожалуйста!!!Заранее спасибо большое!​

Answer 1

Ответ:

program hello2;

var x,b,a,y:real;

begin

writeln ('Введіть два числа');

readln(x);

readln(y);

a:= 2*x+3*y;

b:= 3*x+2*y;

if a = b then

writeln('витратили порівну')

else

if a > b then

writeln('наталка витратила більше')

else

if a < b then

writeln('михайло витратив більше')

end.

Объяснение: