Определите результат:
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