Помогите составить программу : определить делится ли произведение введенных чисел на 5

спасибо огромное)

var a,b:integer;beginread(a,b);if (a*b) mod 5 = 0 then writeln('делится') else writeln('не делится');end.