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

Question

Ввести четырехзначное число.Заменить в нем первую цифру на разность первой и последней цифр,если разность положительна
НА Q BASIC.
СРОЧНООООО ПОМОГИТЕ ПОЖАЛУЙСТА(((((

Answer 1

Я ПЛОХО ЗНАЮ ЭТОТ ЯЗЫК, НО ПРОГРАММА РАБОТАЕТ:
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