Question

Заданы 2 целых числа.Напечатать,делится ли большее на меньшее нацело

Answer 1

var
    a, b, t: integer;

begin
    readln(a, b);
    if b > a then begin
        t := a;
        a := b;
        b := t;
    end;
    writeln(a mod b = 0);
end.