Определите результат: var a, a1, a2 : integer; begin a : = 65; a1 : = a div 10; a2 : = a mod 10: writeln ('в числе', a, 'десятков': 14, a1, 'единиц': 14, a2); end.

В строке:
a2 := a mod 10:
надо у конце заменить ":" на ";": 
a2 := a mod 10;
после этого программа выдаст строку:
В числе65      десятков6        единиц5