Ответы и объяснения

2013-04-17T20:49:12+04:00

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