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

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