Question

program cifry;
c, s, p: integer;
d: byte;
writeln('Программа расчёта
разности произведения и суммы
цифр трёхзначного числа.');
c:=100+random (900);
writeln('Число -', c);
p:=1;
s:=0;
d:=c mod 10
s:=s+d
p:=p*d;
c:=c div 10
d:=c mod 10;
s:=s+d;
p:=p*d;
c:=c div 10
d:=c mod 10;
s:=s+d;
p:=p*d;
c:=c div 10
write('Разность произведения
и суммы цифр числа -', p-s);

Нужно исправить ошибки даю 30 балов