Question

Задание в программе 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.

Answer 1

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 mod 10 = 7) then begin
            writeln('yes');
            exit;
        end;
        x := x div 10;
    end;
   
    writeln('no');
end.