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

С помощью цикла 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.