Дано целое двузначное число x . запишите команды, позволяющие получить первую и последнюю цифры числа

Var  N: integer; 

begin 
write('N = '); 
readln(N);  
writeln('Левая цифра: ', N div 10); 
writeln('Правая цифра: ', N mod 10);
end.