Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр - Pascal

Формулировка задачи:

Помогите плиз=)) Дано двухзначное число. Найти число десятков ,число едениц в нем, произвеление его цыфр

Решение задачи: «Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр»

Листинг программы

program Project2;
 
{$APPTYPE CONSOLE}
var s,k,n:integer;
 
begin
  Writeln('vvedi chislo s:');
  Readln(s);
  n:=s div 10;
  Writeln('chislo desjatkov=',n);
  k:=s mod 10;
  Writeln('chislo edinic=',k);
  s:=n*k
  Writeln('proizvedenie=', s);
ReadLn;
end.

Объяснение кода листинга программы

В программе объявлены три переменные: s, k и n.
Пользователю предлагается ввести число.
Число s делится на 10, и результат сохраняется в переменной n.
Остаток от деления числа s на 10 сохраняется в переменной k.
Переменная s инициализируется как произведение переменных n и k.
Выводится на экран число десятков, число единиц, а также их произведение.
Программа завершается после ввода пользователем числа и нажатия клавиши Enter.