Решить в паскале задачу (8-9 класс):дано четырехзначное число. определить, входят ли в него цифры 2 или 7

program test; var x, temp: integer; flag: boolean; begin    write('Введите целое четырёхзначное число: ');    read(x);    flag:=false;    while x <> 0 do    begin       temp:=x mod 10;       if (temp = 2) or (temp = 7) then       begin          flag:=true;          break;       end;    x:=x div 10; end;    if flag then       writeln('2 или 7 входят в число.')    else       writeln('2 или 7 не входят в число.'); end.