Задача на паскале: четырех значное число, которое раскладывается по цифрам,…

Program p1; uses crt; var a,ed,des,sot,tis,s,p,max: longint; beginclrscr; writeln ('введите четырех значное число'); readln (a); ed: =a mod 10; des: =a div 10 mod 10; sot: =a div 100 mod 10; tis: =a div 1000; s: =0; p: =1; p: =ed*des*sot*tis; s: =ed+des+sot+tis; writeln ('Произведение чисел=',p); writeln ('Сумма чисел=',s); if (ed>des) and (ed>sot) and (ed>tis) then max: =ed; if (des>ed) and (des>sot) and (des>tis) then max: =des; if (sot>ed) and (sot>des) and (sot>tis) then max: =sot; if (tis>ed) and (tis>des) and (tis>sot) then max: =tis; writeln ('Максимальное число=',max); readln; end.