Ввести четырехзначное число.заменить в нем первую цифру на разность первой и последней цифр,если разность положительна на q basic.

Я ПЛОХО ЗНАЮ ЭТОТ ЯЗЫК, НО ПРОГРАММА РАБОТАЕТ:
INPUT "x=";x
INPUT "y=";y
INPUT "z="; z
INPUT "t="; t
s=1000*x+100*y+10*z+t
n=x-t
IF x>t then s=t*1000+y*100+z*10+x
PRINT s