FreePascal.ru

Помогите переделать прогу с метода половинного деления на метод сканирования
program lab1c;
uses crt;
label 1;

var ti,pi,ki,ptn,ptv,ktn,ktv:array[1..3] of real;
z,ztn,ztv,tn,tv,t,e: real;
i,k: integer;

const n=3;
A: array[1..3] of real=(3.98202,4.03129,4.01946);
B: array[1..3] of real=(1186 ...