Скласти програму для обчислення значення функції

console.writeline("введіть n: ");

int n = console.readline();

int y = 0;

if(n == 1 || n == 2 || n == 3 || n == 4) {

y = 0;

}else if(n == 10 || n == 11 || n == 12) {

y = 1;

}else if(n == 15 || n == 19) {

y = 2;

}else{

y = 3;

}

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.