Дано целое число K. Найти произведение цифр числа К - Pascal

var
    k, p: Integer;
begin
    Write('k='); ReadLn(k);
    p:=1; k:=Abs(k);
    repeat
        p := k mod 10 * p;
        k := k div 10;
    until (k = 0);
    WriteLn('p=', p);
end.