var
a:integer;
begin
write('a = ');
readln(a);
if a mod 10 = 7 then
writeln('число оканчивается 7')
else
writeln('число не оканчивается 7');
readln;
end.
var
a:integer;
begin
write('a = ');
readln(a);
if a mod 10 = 7 then
writeln('число оканчивается 7')
else
writeln('число не оканчивается 7');
readln;
end.