на паскале дано а оканчивается ли оно на 7 через мод напишите решение

var

  a:integer;

begin

  write('a = ');

  readln(a);

  if a mod 10 = 7 then

    writeln('число оканчивается 7')

 else

    writeln('число не оканчивается 7');

  readln;

end.