Определить,является ли число а делителем числа в в паскале?

Program UVA;
 a,b:integer;
begin
 read(a,b);
 if b mod a = 0 then
 write ('число a является делителем числа b') else 
 write ('число a не является делителем числа b');
end.