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

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