с клавиатуры вводится трехзначное число. Составить программу которая найдет разность цифр этого числа, стоящих в позиции единиц и сотен.

Решить в ПАСКАЛЕВ массиве Z состоящем из 6 чисел все отрицательные элементы заменить их модулями. Полученный массив вывести.С ПОМОЩЬЮ ДАТЧИКА СЛУЧАЙНЫХ ЧИСЕЛ!

Помоги пожалуйста

var   a: integer;  begin   readln(a);   write(a mod 10 - a div 100); end.