Дано целое двузначное число. Найти частное его первой цифры ** вторую (PascalABC.net)

Question

Дано целое двузначное число. Найти частное его первой цифры на вторую
(PascalABC.net)

Answer 1

Если еще актуально)
program z;
var x,n,m:integer;
beginreadln(x);
n:=x div 10; {первая цифра слева}
m:=x mod 10; {вторая цифра слева}
writeln(n/m);
end.