Підібрати літературу для написання реферату на тему: «Історія розвитку комп'ютерної техніки»та оформити згідно правил

Const
  n1=15;
  n2=10;
  n3=12;
type
  V=array[1..15] of string;
procedure M_in(s:string; var a:V; n:integer);
{ ввод данных в массив }
var i:integer;
begin
  Writeln('Вводите по одному ',n,' элементов массива ',s);
  for i:=1 to n do Readln(a[i])
end; 

procedure M_out(var a:V; n:integer; c:char);
{ выводит элементы, начинающиеся с указанного символа }
var i:integer;
begin
  Writeln('*** Слова на букву ',c,' ***');
  for i:=1 to n do
    if a[i][1]=c then Writeln(a[i]);
  Writeln
end; 

var
  s1,s2,s3:V;
begin
  M_in('S1',s1,n1);
  M_in('S2',s2,n2);
  M_in('S3',s3,n3);
  M_out(s1,n1,'В');
  M_out(s2,n2,'Ц');
  M_out(s3,n3,'А');
end.

Program programma;
uses crt;
var
b:array[1..100]of integer;
i,n,a,max,k,t:integer;
begin
clrscr;
write('Введите размер массива N = ');
readln(n);

write('Введите число A = ');
readln(a);
for i:=1 to n do
begin
write('b[',i,'] = ');
readln(b[i]);
end;

for i:=1 to n do
begin
if abs(b[i])>a then k:=k+1;
if b[i] mod 5=0 then t:=t+1;
end;

writeln;
writeln('Количество элементов массива, превосходящих по модулю заданное число А = ', k);
writeln('Количество элементов массива, кратных 5  = ', t);

for i:=1 to n do
begin
if b[i]> max then max:=b[i];
end;

for i:=1 to n do
begin
if b[i]= max then begin
write (-max,'  ');  end
else
write(b[i],'  ');
end;

end.