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

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.