Дано целое число. определить оканчивается ли оно цифрой 5.

Uses crt;
var a: integer;
begin
readln(a);
a:=a mod 10;
if a=5 then writeln('Оканчивается') else writeln('Не оканчивается');
end.