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

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