Ввести с клавиатуры два числа a,b. найти результат частные и остатки. !

Плз. лучший ответ.

program g;
var
q, w:integer;
begin
writeln('Введите первое число');
readln(q);
writeln('Введите второе число');
readln(w);
writeln('целое=', q div w, ' Остаток=', q mod w);
readln;
end.