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

http://fkn.ktu10.com/?q=node/7341

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

var i, c: integer;
begin
  i := 15;
  c:= i div 10 ;
  writeln(c);
  c:= i mod 10;
  writeln(c);
  readln();
end.