Для чего создоют библиотеки, орхивы, музеи и выстовычные салоны

Библиотеки для хранения книг

Музеи для интересных старых вещей

Да знаю глупо но так

Для того чтобы людям не было скучно.Чтобы они знали историю своей родины.

var

a,b,c: real;

begin

readln(a,b,c);

writeln((a+b+c)/3);

end.

var digits: set of '0'..'9'; st: string; i,s,t,t1: integer; begin  read(st)  for i : = 1 to length(st) do begin      if not (st[i] in digits) then begin          s: =s+t;           t: =0;       end      else begin           t1: =integer(st[i]);           t: =t*10+t1;       end;   end;   writeln('s=',s)end.

на руби куда легчеst=gets.to_sst=st.gsub(/\d+/,',')a=(st.split(","))s=0a.each_index do |i|      a[i]=a[i].to_i      s+=a[i]endp ap s