Дано четырехзначное число, если оно кратно 4, то посчитать сумму его цифр, иначе посчитать произведение цифр. Составить программу на Паскаль

Var a : Integer;

Begin

Readln (a) ;

If a mod 4 = 0 then Writeln ('Сумма цифр: ', a div 1000+a mod 1000 div 100+a mod 100 div 10+a mod 10)

else Writeln ('Произведение цифр: ', (a div 1000) * (a mod 1000 div 100) * (a mod 100 div 10) * (a mod 10)) ;

end.