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

А что такое abs?

Модуль, на случай, если число будет отрицательным.

Спасибо большое.

program prog;uses crt;var a: array [1..30] of integer;    i: integer;beginclrscr;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.