-Определить,начинается ли число ** цифру 7 В паскале !!

Question

-Определить,начинается ли число на цифру 7

В паскале !!

Answer 1

var
  a: integer;
begin
  readln(a);
  repeat
    a := a div 10;
  until a < 10;
  if(a = 7) then writeln('Да, это число начинается на 7') else
    writeln('Нет, это число не начинается на 7');
end.