Дано 2 числа. Проверь если большее число делится на меньшее точно. Пример: Входные данные: 10 250; Выходные данные: 250 делится точно на 10 На Паскаль нужно решение, пож.

program aaa; var a,b: integer; begin writeln('Введите два числа:'); readln(a,b); if a>b then  begin if (a mod b) = 0 then writeln('число ',a,' точно делится на число ',b) else  writeln('число ',a,' не делится на число ',b,' без остатка'); end; if b>a then  begin if (b mod a) = 0 then writeln('число ',b,' точно делится на число ',a) else  writeln('число ',b,' не делится на число ',a,' без остатка '); end; end.