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