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

Решение (Pascal):

var

 x, y, S: integer;

begin

 read(x, y);

 if (x gt; 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.

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

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