Дано трехзначное число вывести на экрвн его первую и последнюю цифру

Program n1;
var a: integer;
begin
write('введите целое трехзначное число: ');
readln(a);
writeln('вы ввели: ',a);
writeln('первая цифра: ',a div 100);
writeln('третья цифра: ', a mod 10);
end.