Дан массив целых чисел из 18 элементов,заполненный случайным образом числами из промежутка [-40;80].Вывести на экран все элементы,которые состоят из одинаковых цифр.

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(18,-40,80); a.Println;  a.Where(t->(t mod 10)=(t div 10)).Printlnend.Пример34 -22 11 63 -9 43 34 -32 -34 -32 28 17 50 37 80 49 2 29-22 11

vara:array[1..18] of integer;i:integer;beginRandomize();Write('Исходный массив: ');For i:= 1 to 18 do    begin    a[i]:=-40 + random(121);    Write(a[i], ' ');  end;Writeln();Write('Элементы, состоящие из одинаковых цифр: ');For i:= 1 to 18 do  if (a[i] mod 10 = a[i] div 10 ) then    Write(a[i], ' ');end.Пример:Исходный массив: 40 68 13 -38 -9 29 77 78 27 14 74 42 50 79 -22 -15 22 20 Элементы, состоящие из одинаковых цифр: 77 -22 22