Впрограмме 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.
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.