Паскаль Дано натуральное число. Найти первую и последнюю цифру

program first_last;

var m, l: integer;

begin

writeln ('Введите натуральное число: ');

readln (m);

l : = m mod 10; / /l - поcледняя цифра числа

while m > 10 do m: = m div 10; //в конце цикла m будет равно первой цифре

writeln ();

writeln ('Первая цифра числа: ', m);

writeln ('Последняя цифра числа: ', l)

end.