водится 2 числа, вывести сумму цифр первого, если оно больше второго и произведение
четных цифр второго числа в противном случае(pascal)

varS,a,b:integer;p:real;begin   readln(a,b);p:=1;s:=0;     if a>b then        begin          while abs(a)>0 do                begin                   s:=s+(abs(a) mod 10);                   a:=a div 10;                end;            writeln('s = ',s)         end     else         begin              while abs(b)>0 do                 begin                    p:=p*(abs(b) mod 10);                    b:=b div 10;                 end;              writeln('P = ',p:4:2);          end;end.