По заданной блок-схеме записать программу для решения задачи:

var

 x, y, S: integer;

begin

 read(x, y);

 if (x > y) then

 begin

   x := x - 10;

   y := y + 24;

 end

 else

 begin

   x := x + 5;

   y := y - 7;

 end;

 S := x - y;

 writeln(x, ' ', y, ' ', S);

end.

----------------------------

Файл решения прикреплён.