Введите в массив 5 целочисленных значений введите их в одну строку через запятую получите для массива среднее арифметическое число )) заранее

program z;

uses crt;

const n=5;

var a: array [1..n] of integer;

      i: integer;

      s: real;

begin 

      clrscr;  

      for i: =1 to n do

      readln (a[i]);

      clrscr;

      for i: =1 to n do

      begin

      write (a[i],',');

      s: =s+a[i];

      end;

      writeln;

      s: =s/n;

      writeln (s);

      readln

end.

2 единицы т.к 1025=10000000001 в двоичной системе счисления

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.