Даны 3 числа a b c.определить какие из них кратны пяти

Программа может быть такой: uses Crt; var a, b, c: integer; begin ClrScr; Write('a='); ReadLn(a); Write('b=');  ReadLn(b); Write('c='); ReadLn(c); If (a mod 5)=0 then WriteLn(a, '    - кратно 5') else Writeln (a, '    - не кратно 5'); If (b mod 5)=0 then WriteLn(b, '    - кратно 5') else Writeln (b, '    - не кратно 5'); If (c mod 5)=0 then WriteLn(c, '    - кратно 5') else Writeln (c, '    - не кратно 5'); ReadLn; end.