ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО
Найдите произведение цифр заданного четырехзначного числа...Сделать программу на Паскаль

С помощью цикла while:
var
  a, s, x, n: integer;
begin
  writeln('Введите число: ');
  read(n);
  a := 1;  x := 1000;
  while x <> 0 do
  begin
    s := (n div x) mod 10;
    a := a * s;
    x := trunc(x / 10);
  end;
  writeln('Результат: ',a);
end.

C помощью цикла repeat:
var
  a, s, x, n: integer;
begin
  writeln('Введите число: ');
  read(n);
  a := 1;
  x := 1000;
  repeat
    s := (n div x) mod 10;
    a := a * s;
    x := trunc(x / 10);
  until x < 1;
  writeln('Результат: ', a);
end.