Напишите программку которая вводит трехзначное число и ,,вырезает 39;39; из него

Решение задачи:
Код написан в программе PascalABC.NET.
var a, a1, a2, a3: integer;
begin
write(Введите требуемое трехзначное число: );
readln(a);
a1:=a div 100; //Вырезаем первую цифру: осуществление деления нацело трехзначного числа a на 100.
a2:=(a mod 100) div 10;//Вычисление остатка от дробления числа a на 100 и затем расчет целочисленного деления остатка на 10.
a3:=a-a1*100-a2*10; //Вырезаем заключительную цифру.
writeln(Первая цифра: , a1);
writeln(Заключительная цифра: , a3);
writeln(Ответ: , a1, a3);
end.