Выбрать 3-х провайдеров и проанализировать предложения каналов и оценить с позиции использования. Данные занести в таблицу в тетради. Сделать вывод.

Program n1;
var
st: string;
i,c: longint;
b: boolean;
procedure numdig(st: string; x: char);
var i,k: longint;
t: string;
begin
t:='';
k := 0;
for i := 1 to length(st) do
begin
if st[i] = x then k := k + 1;
end;
if(k<>0) and (k<>1) then
begin
if(k=2) or (k=3) or (k=4) then t:='а';
writeln('цифра ',x,' повторяется ',k,' раз',t);
c:=c+1;
end
end;
begin
c:=0;
write('введите число: ');
read(i);
str(i, st);
numdig(st,'0');
numdig(st,'1');
numdig(st,'2');
numdig(st,'3');
numdig(st,'4');
numdig(st,'5');
numdig(st,'6');
numdig(st,'7');
numdig(st,'8');
numdig(st,'9');
if c=0 then writeln('цифры не повторяются');
end.

{
правильная программа, кол-во элементов вводится с клавиатуры
}
Program Summa;
uses crt;
type a1= array of integer;
var a: a1;
m,s,n: integer;
procedure Input;
const p=1;
const q=20;
var i: integer;
begin
randomize;
begin
for i:=0 to n-1 do a[i]:=random(q-p+1)+p;
write('a[',i,']=');
readln(a[i]);
end;
end;
procedure Print;
var i: integer;
begin
write('Массив целых чисел А: ');
for i:=0 to n-1 do write(' ',a[i]);
writeln;
writeln;
end;
procedure Sum( m: integer);
var i: integer;
begin
s:=0;
for i:=0 to m-1 do s:=s+a[i];
end;
Begin
ClrScr;
write('введите кол-во элементов в массиве: ');
readln(n);
SetLength(a, n);
Input;
ClrScr;
Print;
write('Сколько элементов суммировать: ');
readln(m);
Sum(m);
writeln;
writeln('Сумма ',m,' элементов масссива равна: ', s);
Sum(n);
writeln;
writeln('Сумма всех ',n,' элементов массива равна: ', s);
Writeln ('Среднее арифмитическое всех элементов равно ', s/n);
Readkey;
end.