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

Var a,b,c,d: integer; Begin Write ('Введите 4 числа: '); readln (a,b,c,d); if (a mod 5=0) then writeln (a,' делится на 5 без остатка'); if (b mod 5=0) then writeln (b,' делится на 5 без остатка'); if (c mod 5=0) then writeln (c,' делится на 5 без остатка'); if (d mod 5=0) then writeln (d,' делится на 5 без остатка'); end.