Дан одномерный массив целых чисел, заполненный
случайным образом числами из промежутка [-40, 30]. Массив данных хранится в
файле. Удалить из него все элементы, которые состоят из одинаковых цифр.
Результат записать в другой файл.

var m:array [1..100] of integer;t:text;beginassign(t,'input.txt');reset;for i:= to 100 doreadln(m[i]);close(t);assign(t,'output.txt');rewrite(t);for i:=1 to 100 doif (m[i]div10<>m[i] mod 10)then writeln(m[i]);close (t);end;