В целом шестизначном числе выделить первые три цифры,последние три цифры и найти разность между получившимися числами — QBasic(Бейсик)

input "шестизначное число";n
k=n/1000
l=n mod 1000
r=k - n
Print "r=";r

Тестирование выполнено в программе QB64 ( Скачать )