Pascal!Даю 30 раутов! Написать программку,помогитеДано 4-х значное числоamp;lt;вычислить

Наверняка имелось ввиду творенье его цифр, тогда может получиться так:

1. Решение без циклов
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var n,x,p: integer;//n1-кол-во четных, n2-нечетных
begin
  read(n);
  p:=1; 
 
//получаем остаток от дробления (единицы) и умножаем на него p
  x:=n mod 10; p:=p*x;
//отбрасываем единицы
  n:=n div 10;
//получаем остаток от разделенья (10-ки) и умножаем на него p
  x:=n mod 10; p:=p*x;
//отбрасываем десятки
  n:=n div 10;
//получаем остаток от разделенья (сотки) и умножаем на него p
  x:=n mod 10; p:=p*x;
//отбрасываем сотки
  n:=n div 10;
//получаем остаток от дробленья (тыщи) и умножаем на него p
  x:=n mod 10; p:=p*x;
//отбрасываем тыщи
 n:=n div 10;
///получаем остаток от деления (сотки тыщ) и умножаем на него p
 x:=n mod 10; p:=p*x;
// Сейчас в p находится творение единицы*сотки*тыщи*сотки тысяч

  writeln('Творение цифр ',p);
end.

2. Решение с циклом

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var n,x,p: integer;
begin
  readln(n);
  p:=1;
  while ngt;0 do  begin
  x:=n mod 10; p:=p*x;
  n:=n div 10;
  end;
  writeln('Творенье цифр ',p);
end.

Var n,m: integer;
begin
  write('число:  ');  readln(n);
  m:=1;
  repeat
    m:=m*(n mod 10);
    n:=n div 10;
  until n=0;  
  writeln('произведение цифр:  ',m);  
end.