в паскале, вычисления произведения цифр положительного целого четырехзначного числа n

[Мэури]

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


______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[GreenWizard]

пробуй:

program Project2;

function CalcProdOfNum(N: Integer): Integer;
var
  i: Integer;
  Numb: Integer;
begin
  Result := 1;
  for i := 1 to 4 do
    begin
      Numb := N mod 10;
      N := N div 10;
      Result := Result * Numb;
    end;
end;

var
  InputN: Integer;
begin
  repeat
    write('Введите число: ');
    Readln(InputN);
  until ((InputN >= 1000) and (InputN < 10000));

  Writeln('Произведение его чисел: ', CalcProdOfNum(InputN));
  Readln;
end.

функция вернёт произведение 4 цифр числа указанного с учётом нулей (если меньше тысячи число)