Впрограмме lazarus(язык turbo delphi). дано четырехзначное число. определить входит ли в него цифры 2 или 7. , исправьте ошибку или решите заново) program project1; var x: integer; begin read(x); if (x < 1000) or (x > 9999) then begin writeln('need 4 digits'); exit end; while (x < > 0) do begin if (x mod 10 ) = 2 or (x div 10 mod 10) = 2 or (x div 100) = 2 or (x div 1000) = 2 or (x mod 10 ) = 7 or (x div 10 mod 10) = 7 or (x div 100) = 7 or (x div 1000) = 7 then writeln('yes') else writeln('no'); end; end.