Написать задано трехзначное число, определить: 1) сумму цифр этого числа; 2) произведение; 3) минимальную цифру; 4) максимальную цифру этого числа.

Uses crt;
var a,b,c,x,max,min,sum,pr: integer;
begin
     write('Введите число:  ');
     readln(x);
     a:= x div 100;
     b:= x div 10 mod 10;
     c:= x mod 10;
     sum:=a+b+c;
     pr:=a*b*c;
     if a>b then begin
        min:=b;
        max:=a;
     end
     else begin
          max:=b;
          min:=a;
     end;
     if min>c then min:=c;
     if max<c then max:=c;
     writeln('Сумма цифр числа: ',sum);
     writeln('Произведение цифр числа: ',pr);
     writeln('Максимальная цифра: ',max);
     writeln('Минимальная цифра: ',min);
end.