Хелп, назовите основные компоненты информационной !

{правильная программа, кол-во элементов вводится с клавиатуры } 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.

Var n,a,b,c,d: integer; begin write('n = '); readln(n); a: =n div 1000; b: =n div 100 mod 10; c: =n mod 100 div 10; d: =n mod 10; if a*10+b=d*10+c   then writeln('число - палиндром')   else writeln('число - не палиндром'); if (a< > b)and(a< > c)and(a< > d)and(b< > c)and(b< > d)and(c< > d)   then writeln('в числе все цифры различны')   else writeln('в числе есть одинаковые цифры'); end. пример: n = 1315число - не палиндром в числе есть одинаковые цифры