Вводится двузначное число, вычислите произведение его цифр. (в pascal)

Var       n: integer; begin       readln(n);       if (n < 10) or (n > 99) then               writeln('неверное число')       else               writeln((n div 10) * (n mod 10)); end.

№1) код программы получился довольно таки большой , но можно сам файл *.pas закинуть в интернет и оттуда скачать. №2) uses crt; var m: array[1..100,1..100] of integer;     i,i1,j,str,stb,temp: integer; begin clrscr; writeln(' введите число строк массива: '); readln(str); writeln(' введите число столбцов массива: '); readln(stb); clrscr; writeln('массиа из ',str,' строк, и из ',stb,' столбцов успешно создан! '); writeln; for i: =1 to str dobegin      for j: =1 to stb do      begin      m[i,j]: =random(80)+1;       write(m[i,j]: 3,'   ');       end;       writeln; end; writeln; writeln(' отсортирован по убыванию'); writeln; for i1: =1   to str do    for i: =1 to str-1 do    for j: =i+1 to str do    if m[i1,i]< m[i1,j] then begin temp: =m[i1,i]; m[i1,i]: =m[i1,j]; m[i1,j]: =temp; end; writeln; for i: =1 to str dobegin      for j: =1 to stb do      begin      write(m[i,j]: 3,'   ');       end;       writeln; end; readkey; end.запускаешь водишь строк и столбцов после нажимаешь enter программы сделает своё дело