Напишите программу которая вводит четырехзначное число и ,,вырезает '' из него 1 и...

Question

Напишите программу которая вводит четырехзначное число и ,,вырезает '' из него 1 и последнюю цифру. На qbasic

Answer 1

DIM a AS SINGLE
CLS
INPUT "Введите четырехзначное число", a
a = a \ 10
a = a MOD 100
a = a * 10
PRINT "У нас получилось"; a
END