Задача: нужно составить на паскале такую программу…

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