Хотя бы одно решить составить программы на языке турбо паскаль для решения в1. даны "информация" и "логика". получить из этих слов словосочетание "информационные технологии" и определить его длину. в2. дан массив r[1]=12, r[2]=3, r[3]=-5, r[4]=-6, r[5]=4, r[6]=9, r[7]=0, r[8]=8. найти сумму элементов массива. в3. вводить целые числа с клавиатуры, пока не будет введен ноль. найти разность введенных чисел.

B2 в pascal ABC NET...........................................
B3 в pascal ABC NET:
const  N = 1000;
var  a: array [1..N] of integer;   i, k, p, l: integer;
begin  l := 0;  p := 0;  i := 1;  readln(k);  while k <> 0 do   begin    a[i] := k;    p := i;    i := i + 1;    readln(k);  end;  for i := 1 to p do    l := l - a[i];  writeln(l);end.