Напишите программу которая вводит трехзначное число и ,,вырезает '' из него 1 и последнюю цифру

//PascalABC.NET
var
a:integer;
begin
readln(a);
writeln(a div 10 mod 10);
end.

//Для 4 значного
//PascalABC.NET
var
a:integer;
begin
readln(a);
writeln(a div 100 mod 10, a div 10 mod 10);
end.

Program Project;
uses
  crt;
var
  a: byte;
begin
  clrscr;
  Write("Введите число ");
  Readln(a);
  Writeln("Полученные числа:",(a div 100)," ",(a mod 10));
  Readln;
end.