Ввести 30 двузначных чисел и вывести на экран те у которых сумма цифр меньше 10

program prog; uses crt; var a: array [1..30] of integer;     i: integer; begin clrscr; for  i:=1 to 30 do      begin           write('a[',i,'] = ');      readln(a[i]);      end; for  i:=1 to 30 do      begin      if (abs(a[i]) mod 10)+ (abs(a[i]) div 10) < 10 then      write (a[i], '  ');      end; end.