Заданы 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.