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

Вопрос школьника по предмету Информатика

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