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

var x,y,s:integer;begin  readln(x,y);if x>y then beginx:=x-10;    y:=y+24  end else begin  x:=x+5;    y:=y-7;  end;  s:=x-y;  writeln('x=',x,' y=',y,' s=',s);end.