4 «Условный оператор» Написать программу: Дано четырехзначное число. Определить, входит ли в него цифра 6.

Program spinogryz21;
var
  x, i: integer;
  yes: boolean;
begin
  yes := FALSE;
  write('Введите число Х ');
  readln(x);
  for i := 1 to 4 do
  begin
    if (x mod 10) = 6 then yes := TRUE;
    x:=x div 10;
  end;
  if yes then writeln('6 входит в число Х')
  else writeln('6 не входит в число Х');
end.