Урок 11 Задача 12

http://fkn.ktu10.com/?q=node/7341
Получите первую и последнюю цифры числа 15 с помощью операций div и mod (решается без цикла)

var  a:integer;
begin
  writeln('vvedite chislo 15 '); 
    readln (a);
    writeln ('pervaya cifra',' ', a div 10,' ', 'vtoraya cifra',' ', a mod 10);
 readln();
  end.