Написать в pascal abc таблицу утроенных значений от -4 до 4 должно получиться -4 -12 -2 -6 0 0 2 2 4 12

Program primer;
Var
i:integer;
begin
i:=-4;
repeat
writeln(i,'  ',3*i);
i:=i+2;
until i>4;
end.