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.