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

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