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

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

Получите первую и последнюю цифры числа 15 с помощью операций div и mod (решается без цикла)

program Lesson12;
var a,b,c: integer;
begin
  a:=15;
  b:=a div 10;
  c:=a mod 10;
  writeln(b,' ',c);
readln()
end.