По информатике,нужно на паскале! дано 2 целых числа а и b.написать слово "делится",если a/b без остатка,в противном случае написать "не делится".

Var
a, b: integer;
begin
readln(a, b);
If a mod b <> 0 then
writeln('Не делится')
else 
writeln('Делится');
end.