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

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

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

var a, b, c: integer;
begin
  a:= 15;
  b:= 15 div 10;  // получаем первую цифру
  c:= 15 mod 10;  // получаем последнюю цифру
  writeln(b, ' ', c); // выводим на экран
  readln();
end.

Вывод в консоли:

1 5