Дано двузначное число А,если А больше 50,то посчитать сумму чисел,иначе произведение

Var A:integer; Begin Write('A = ');Read(A); if A>50 then A:=(A div 10)+(A mod 10) else A:=(A div 10)*(A mod 10); Write(A); End.