5 and 6 in 459...671

{Сколько чисел от 459 до 671 содержат в записи одновременно цифры 5 и 6?}

program test;
//uses crt;

var num : integer;
    count : integer;

function isDigitInNumber(x : integer; d : integer):boolean;
var flag : boolean;
begin
    flag := false;
    while( x > 0 ) do begin
       if( x mod 10 = d ) then begin
          flag := true; break;
       end;
       x := x div 10;
    end;
    result := flag;
end;


begin
   count := 0;
   for num := 459 to 671 do begin
       if(isDigitInNumber(num, 5) and isDigitInNumber(num, 6)) then
         begin
          count := count + 1;
          writeln(num);
         end;
   end;

   writeln('Количество цифр между 459 и 671,в которых есть цифры 5 и 6: ', count);
end.