Вывести вначале его левую цифру (десятки), а затем — его правую цифру (единицы)

Дано двузначное число. Для нахождения десятков использовать операцию деления нацело, для нахождения единиц — операцию взятия остатка от деления.

Program Integer6;
var a,r,l:integer;
begin
WriteLn('Введите число a');
ReadLn(a);
r:=a div 10;
l:=a mod 10;
WriteLn ('число десятков=',r);
WriteLn ('число единиц=',l);
end.

автор: Zakirov Nail a.k.a. ZevsNet