делится ли число а на число b без остатка? написать в виде разветвляющего алгоритма.

program pr;uses crt;Var a,b:integer;BeginWriteln('vvedite a,b');readln(a);readln(b);if a mod b=0 then Writeln('da')             else Writeln('not');readln;end.