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

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