procedure try(a,b:real);

var

n,i:integer;

temp:real;

bool:boolean;

begin

i:=1;

bool:=false;

repeat

inc(i);

temp:=(q-p)*i;

if temp