Урок 11 Задание 12

Задание 12 Урок 11

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

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

Консоль:

pervaya 1 vtoray 5