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