Даётся одно любое двухзначное число, необходимо вывести на экpан 2 числа из которых оно состоит (в программе паскаль)

program zz1;

var s, n, k:integer; / / задаем переменные целого типа

begin

write (' введите любое двузначное число ');

read (n); / / вводим с клавиатуры двузначное число

k:=n mod 10; / / получаем последнюю цифру, вычислив остаток от деления числа на десять

s:=n div 10; / / получаем первую цифру, вычислив целую часть числа при делении на десять

writeln (' первая цифра любого двухзначного числа = ', s); / / выводим один ответ

writeln (' вторая цифра любого двухзначного числа = ', k); / / выводим другой ответ

end.