2) writeln (copy(s1,2,6));
3) delete (s,1,5);
Имеем 3 позиции
_ _ _
На первую можно поставить любую из данных 4 цифр. На вторую же, так как в записи нового числа цифры могут повторяться, тоже можно поставить 4. На третью=аналогично.
Тогда всего будет 4*4*4=64 чисел
Program example;var a, b, c:integer;function gero(a,b,c:integer):double;var p:double;begin p:=(a+b+c)/2; gero:=p*(p-a)*(p-b)*(p-c);end;begin write('Введите A'); readln(a); write('Введите B '); readln(b); write('Введите C'); readln(c); writeln(gero(a,b,c)); readkey;end.
10101101 - Ответ на твой вопрос бро)
6, если ещё и раздел подкачки - то 9