Найти произведение цифр числа

uses crt;
var N,p:integer;
 
begin
 clrscr;
 write('N-> ');
 readln(N);
 p := 1;
 while N<>0 do
 begin
  p := p * N mod 10;
  N := N div 10;
 end;
 writeln('P=',p);
 readln;
end.

a:=(a mod 10) * (a div 1000) * (a div 100 mod 10) * (a mod 100 div 10);

uses crt;
var n,i,k,a:integer;
 
begin
 clrscr;
 write('N -> ');
 readln(N);
 k := 0;
 for i:=1 to N do
 begin
  write(i,'-е число -> ');
  readln(a);
  if a<0 then inc(k);
 end;
 writeln('Отрицательных - ',k);
 readln;
end.

uses crt;
var x,y:real;
 
begin
 clrscr;
 write('X -> ');
 readln(X);
 y := sqr(sqr(sqr(x))) + 2 * sqr(sqr(x)) + 3 * sqr(x) + 4;
 writeln('Y=',y:0:4);
 readln;
end.

y:=sqr(sqr(sqr(x)))+2*sqr(sqr(x))+3*sqr(x)+4;

uses crt;
var n,i:integer;
t:text;
a:real;
 
begin
 clrscr;
 assign(t,'input.txt');
 rewrite(t);
 for i:=1 to 10 do
 begin
  write(i,'-е число -> ');
  readln(a);
  write(f,a,' ');
 end;
 close(t);
 reset(t);
 for i:=1 to 10 do
 begin
  read(t,a);
  if (abs(a)>=4) and (abs(a)<=5) then writeln(a:0:4);
 end;
 close(t);
 readln;
end.