ну вот этот пояснительный текст ,не пойму куда его применить

var a, b, tmp: integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);

if a < b then
begin
tmp := a;
a := b;
b := tmp;
end;

if a mod b = 0 then
writeln('Частное: ', a div b)
else
writeln('Числа не кратные');
end.

Я вам ещё побеспокою.Может ещё знаете как выполнить это задание.

не за что