Var
x: integer;
begin
write('Число: ');
readln(x);
writeln('В числе десятков=', x div 10, '; единиц=', x mod 10);
end.
_________________________
<span>1530
</span>_________________________
1>4>5>10>20>21>22>23>24>25>50>100
Как вариант
Название программы.
Объявление переменных.
Процедуры и функции
Основная программа, начинаемая begin и заканчивая end.