Помогите решить Задаачу по Паскалю

Question

Помогите решить Задаачу по Паскалю

---

Answer 1

Var x, y: Integer;
begin
     x := -3;
     repeat
           if (x < 0) then writeln('При X = ', x, ' y = ', 2 * x);
           if (x = 0) then writeln('При X = ', x, ' y = ', 0);
           if (x > 0) then writeln('При X = ', x, ' y = ', 0.5 * x);
           x := x + 1;
     until (x > 8);
end.

Проверил =)