Найти все целые двухзначные числа, удольтворяющие условия

Прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа. На tpascal: var i: integer; beginfor i: =10 to 99 do beginif i mod 3=2 thenwriteln (i,',-i,'); i: =i+1; end; readlnend.