var a,s,s1 : integer;
begin write('введите двухзначное число - ');
readln(a);
s := a div 10;
s1 := a mod 10;
write('частное - ',s/s1);
end.
как-то так
