Question

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

Answer 1

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