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

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