Найдите количество всех:
а)двузначных чисел;
б)двузначных чисел,состоящих из разных цифр;
в)двузначных чисел,сумма цифр которых больше 16;
г)двузначных чисел,произведение цифр которых меньше 2.

1 var a:array [1..10] of integer;2 i,k,l:integer;34   begin 5      randomize;6      for i:=1 to 10 do7          a[i]:=random(50)-10;8         for i:=1 to 10 do9           write(a[i],' ');10    for i:=1 to 10 do  1112    while a[i]>=10 do13    begin    14    a[i]:=a[i] mod 10;15   k:=k+1;    16    if k=1 then begin    17     l:=l+1;    18      k:=0;     19       end;     20       end;     21       writeln;22      writeln(l);23          readln;         24     end.