Составьте программу, которая находит произведение цифр заданного четырёхзначного числа . В Pascal ABC.ru

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016begin  var n:=ReadInteger('Введите четырехзначное натуральное число:');  var p:=1;  while n>0 do begin    p:=p*(n mod 10);    n:=n div 10    end;  Writeln('Произведение цифр числа равно ',p)end.