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

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.