С клавиатуры вводится 5 целых чисел . Вывести на экран только однозначные числа

var   a: array [1..5] of integer;  //Массив из 5 целочисленных элементов   i: integer;   begin   for i:= 1 to 5 do    begin     writeln('Введите целое число');     readln(a[i]);   end;   write('Однозначные числа:  ');   for i:= 1 to 5 do     if a[i] div 10 = 0 then write(a[i], '  '); end.

var   a: array [1..5] of integer;  //Массив из 5 целочисленных элементов   i: integer;   begin   for i:= 1 to 5 do    begin     writeln('Введите целое число');     readln(a[i]);   end;   write('Однозначные числа:  ');   for i:= 1 to 5 do     if a[i] div 10 = 0 then write(a[i], '  '); end.                                                                                       пожалуйсто