Дано двузначное целое число.Используя операции div и mod найти частное от деления его второй цифры на первую.

var a,s,s1 : integer;

begin write('введите двухзначное число - ');

readln(a);

s := a div 10;

s1 := a mod 10;

write('частное - ',s/s1);

end.

как-то так