var a, b, c: integer;
begin
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');
end.
Подробнее - на Znanija.com -
https://znanija.com/task/11157289#readmore