Program ed;</br>
uses crt;</br>
var a:integer;</br>
function div5(x:integer):boolean;</br>
begin
div5:=(x mod 10=0) or (x mod 10=5);</br>
end;</br>
Begin
writeln('vvedi chislo');</br>
readln(a);</br>
div5(a);</br>
writeln(div5(a));</br>
readln;</br>
End.