Question

Даны числа : а,b. Определить, является ли одно из них делителем другого: а делится на b или b делится на а без остатка

Answer 1

Program zadacha;
var
a,b,c:integer;
begin
readln(a,b);
if c = a mod b then
begin
writeln('число b делится без остатка на число a');
end
else
if c = b mod a then
writeln('число a делится без остатка на число b');
end.
Всё так?

Answer 2

var a,b : integer;
begin 
readln(a,b);
if (a mod b) = 0 then writeln('Делитель ', b);
if (b mod a) = 0 then writeln('Делитель ', a);
readln;
end.