Исправленный вариант:
if (x > 4) and (x > 7) thenbeginx := 2 * x;y := x / 2;endelsebeginx := x / 2;end.
Исправленный вариант:
if (x > 4) and (x > 7) then
begin
x := 2 * x;
y := x / 2;
end
else
begin
x := x / 2;
end.