Ответ: Код полностьюvar    a, b: integer;begin    a := -3;    b := a div (abs(a));    b := abs(a) + b;    a := 5 * b;    writeln(a);    writeln(b);end.Вывод102