а)beginif x*x < 1 theny := sin(x);x := x / 2;end;
б)if x > 2 thenbeginx := x + 1;y := 0;endelsebeginx := 0;y := y + 1;end
а)
begin
if x*x < 1 then
y := sin(x);
x := x / 2;
end;
б)
if x > 2 then
begin
x := x + 1;
y := 0;
end
else
begin
x := 0;
y := y + 1;
end