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

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