составить программу?
да я уже составила
Uses crt; var a: integer; begin readln(a); a:=a mod 10; if a=5 then writeln('Оканчивается') else writeln('Не оканчивается'); end.