Программа может быть такой:




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.