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