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

program first_last;var m,l: integer;beginwriteln(\'Введите натуральное число: \');readln(m);l := m mod 10; //l — поcледняя цифра числаwhile m > 10 do m:= m div 10;//в конце цикла m будет равно первой цифреwriteln();writeln (\'Первая цифра числа: \', m);writeln (\'Последняя цифра числа: \', l)end.