Помогите написать программу)))

Задано трехзначное число, определить:

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
writeln ('Сумма цифр числа: ', sum) ;

writeln ('Произведение цифр числа: ', pr) ;

writeln ('Максимальная цифра: ', max) ;

writeln ('Минимальная цифра: ', min) ;

end.