Дано двузначное число а,если а> 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.