Помогите решить задачу в паскале)

Question

Дано число . найти и вывести первую и последнюю цифру этого числа. ПРОГРАММА В ПАСКАЛЕ)

Ольга Трепыхалина · Accepted Answer

Два способа решения: через строку и через операторы mod и div (Количество цифр-фиксированное) . 
Через строку: 
 
program chislo; 
var a,c:integer; 
b:string; 
BEGIN 
writeln ('Vvedite chislo...'); 
readln (a); 
b:=IntToStr (a); // переводим число в строку 
c:=length(b); // вычисляем количество цифр 
writeln ('Первая цифра... ',b[1],' Последняя цифра... ',b[c]); // выводим результаты 
END.