Пожалуйста, помогите. Нужно решить в Pascal ABC, тремя способами: с помощью операторов for, while и repeat.

Огромное спасибо

Огромное спасибо

Пожалуйста

//Pascal ABC.NET v3.0 сборка 1111//forVar  x:integer;begin for x:=-3 to 8 do  begin;   if x>5 then writeln('y=(',x,')',18*x);   if (2<=x) and (x<=5) then writeln('y=(',x,')',9*x+10);   if x<2 then writeln('y=(',x,')',-12*x);  end;end.//whileVar  x:integer;beginx:=-3; while x<>9 do  begin;   if x>5 then writeln('y=(',x,')',18*x);   if (2<=x) and (x<=5) then writeln('y=(',x,')',9*x+10);   if x<2 then writeln('y=(',x,')',-12*x);   inc(x);  end;end.//repeatVar  x:integer;beginx:=-3; repeat   if x>5 then writeln('y=(',x,')',18*x);   if (2<=x) and (x<=5) then writeln('y=(',x,')',9*x+10);   if x<2 then writeln('y=(',x,')',-12*x);   inc(x); until x=9;end.