Даётся одно хоть какое двухзначное число, нужно вывести на экpан 2 числа

program zz1;

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

begin

write( введите  хоть какое двузначное число );

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

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

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

writeln( 1-ая цифра  хоть какого двухзначного числа = , s); // выводим один ответ

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

end.