Найти разность между произведением и суммой цифр трехзначного числа. Pascal

Question

Найти разность между произведением и суммой цифр трехзначного числа.
Pascal

Answer 1

//PascalABC.NET

var
    N, S, P : integer;

begin
    while (N < 99) or (N > 999) do
    begin
        write('Введите трехзначное число: ');
        Readln(N)
    end;

    S := (N div 100) + (N div 10 mod 10) + (N mod 10);
    P := (N div 100) * (N div 10 mod 10) * (N mod 10);
    writeln('Разность равна ', P - S)
end.

---