Вырезать из четырехзначного числа первую и последнюю цифры - Free Pascal

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

Напишите программу коротая вводит четырехзначное число и вырезать из него первую и последованию цифру .(напитать программу в ПАСКАЛЕ( Free Pascal IDE или другой ) и qбесик (64 или другой)). Например: 1234=23 4567=56

Решение задачи: «Вырезать из четырехзначного числа первую и последнюю цифры»

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

var n: Integer;
begin
  ReadLn(n); n:=n div 10 mod 100; 
  if n<10 then Write(0); WriteLn(n);
end.

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

Объявляется переменная n типа Integer
С помощью функции ReadLn() в переменную n считывается четырехзначное число
Выполняется операция деления нацело (div) и остатка от деления (mod), результат сохраняется в переменной n
Проверяется условие if n<10, если число меньше 10, то выводится сообщение (Write) на экран
Число выводится на экран с помощью функции WriteLn()
Код завершается, когда достигается условие окончания работы программы