ВВЕСТИ С КЛАВИАТУРЫ ДВА ЧИСЛА .БОЛЬШЕЕ ЧИСЛО ЗАМЕНИТЬ НА ПРОТИВОП. ЧИСЛО МЕНЬШЕ ЧИМЛО ЗАМЕНИТЬ НА НОЛЬ

Плз лучший ответ//////////////////program g;varq, w: integer;beginwriteln('Введите первое число');readln(q);writeln('Введите второе число 2');readln(w);if q>w thenbeginwriteln('-', q, ' 0');end;if w>q thenbeginwriteln('-', w, ' 0');end;if q=w thenbeginwriteln('Вы ввели равные числа');end;end.