Нужно составить программу на языке pascal. для каждого варианта разработать алгоритм вычисления выра-жения, заданного в первом столбце, введя функцию пользователя, опи-санную во втором столбце.

Const    letters = ['a'..'z', 'a'..'z'];   lineends = [#13, #10, #0, '.'];   max_len = 255; var    txt: array [0..max_len] of char;   bnd: array [0..max_len, 0..1] of integer;   tsz, bsz: integer; // размеры массивов   isletter, isword, f1, f2: boolean;   i, j: integer; begin   repeat     read(txt[tsz]);     // определение границ слов         isletter : = txt[tsz] in letters;     if isletter and not isword then       bnd[bsz, 0] : = tsz;     if isword and not isletter then begin       bnd[bsz, 1] : = tsz;       bsz : = bsz + 1;     end;           isword : = isletter;     tsz : = tsz + 1;   until txt[tsz-1] in lineends;       if bsz > 1 then begin       for i : = 0 to bsz-2 do begin       j : = 0; f2 : = true;       f1 : = (bnd[bsz-1, 1] - bnd[bsz-1, 0]) = (bnd[i, 1]-bnd[i, 0]); // совпадение длин               while (j < bnd[i, 1] - bnd[i, 0]) and f2 do begin         f1 : = f1 and (txt[bnd[i, 0] + j] = txt[bnd[bsz-1, 0] + j]);         f2 : = f2 and (lowcase(txt[bnd[i, 0] + j]) = chr(ord('a') + j));         j : = j + 1;       end;               // вывод       if f2 and not f1 then begin         for j : = bnd[i, 0] to bnd[i, 1] - 1 do           write(txt[j]);         writeln;       end;     end;   end; end.