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

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

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

var a, b: integer;
begin
  a :=(1 mod 15);
  b :=(15 div 1);
  write('a=', a, ' ', 'b=', b);
  readln();
end.

Консоль:

a=1 b=15