Чему равна сумма всех пятизначных чисел, каждое из которых записывается неповторяющимися цифрами 1, 2, 3, 4, 5?

КАК РЕШИТЬ ЗАДАЧИ С ПЕРИМЕТРОМ

Дополнить программу недостающими командами

Подсчитать  количество  букв  “а”  в  тексте (русских и латинских; прописных и заглавных).

program zadacha1;

      var    t:string;

               b:string[1];

               n,k,i:integer;

Begin

writeln('Введите  текст'); 

…………………………;

n:=length(t);                               

k:=0;

for i:=1 to n do

        begin

           b:=copy(t,i,1);                    

           if ……………………………then  k:=k+1;  

         end;

     writeln('k=',k);

End.