Натуральные числа

var
  n,i,j,k:integer;
  s:string;
  fl:boolean;
begin
  writeln('Ââåäèòå ÷èñëî...');
  readln(n);
  str(n,s);
  {ïðîâåðêà 4}
  if pos('4',s)<>0 then
    writeln(' äàííîì ÷èñëå åñòü öèôðà 4')
  else
    writeln(' äàííîì ÷èñëå ÍÅÒ öèôðû 4');
  {ïðîâåðêà íà ÷åòíîñòü}
  fl:=false;
  for i:=1 to length(s) do
  begin
    val(s[i],j,k);
    if (not odd(j)) and (not fl) then
    begin
      writeln('Ïðîèçâåäåíèå öèôð äàííîãî ÷èñëà ÿâëÿåòñÿ ÷åòíûì!');
      fl:=true
    end;
  end;
  if not fl then
    writeln('Ïðîèçâåäåíèå öèôð äàííîãî ÷èñëà ÍÅ ÿâëÿåòñÿ ÷åòíûì!');
  {ïðîâåðêà íà ïÿòèçíà÷íîñòü}
  if length(s)=5 then
    writeln('Äàííîå ÷èñëî ïÿòèçíà÷íîå!')
  else
    writeln('Äàííîå ÷èñëî ÍÅ ïÿòèçíà÷íîå!')
end.

uses crt;
var n:longint;
    i,k:byte;
begin
clrscr;
write('n=');
readln(n);
i:=0;
while n>0 do//пока число не ноль
 begin
  k:=n mod 10;//отделяем с конца по одной цифре
  if k=4 then//если попалась 4
   begin
    i:=1;//фиксируем
    break;//дальше не ищем
   end;
  n:=n div 10;//делим число на 10, берем целую часть
 end;
if i=1 then  write('Цифра 4 встречается!')
else write('Цифра 4 не встречается!');
readln
end.

uses crt;
var n,p:longint;
    k:byte;
begin
clrscr;
write('n=');
readln(n);
p:=1;
while n>0 do//пока не ноль
 begin
  p:=p*(n mod 10);//отделяем цифры и перемножаем
  n:=n div 10;
 end;
if p mod 2=0 then  write('Произведение цифр четное!')
else write('Произведение цифр не четное!');
readln
end.

uses crt;
var n:longint;
    k,i:byte;
begin
clrscr;
write('n=');
readln(n);
k:=0;
while n>0 do//пока не ноль
 begin
  n:=n div 10;//делим число на 10
  k:=k+1;//считаем цифры
 end;
if k=5 then  write('Число пятизначное!')
else write('Число не пятизначное!');
readln
end.