program Branching;
var x, y, a, b: integer;
beginif x > 0 thenbeginy := sqrt(x);end;
if a > b thenbegina := a - b;endelsebeginb := b - a;end;end.
program Branching;
var x, y, a, b: integer;
begin
if x > 0 then
begin
y := sqrt(x);
end;
if a > b then
begin
a := a - b;
end
else
begin
b := b - a;
end;
end.