Даны 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.