Помогите решить 2 задачки!

[Tayfun]

{ПЕРВАЯ}
program zad1;
uses crt;
var
n:integer;
v,p:real;
begin
clrscr;
n:=1;
v:=(4*sqr(n))/(4*sqr(n)-1);
p:=v;
while v>0.001 do begin
n:=n+1;
v:=(4*sqr(n))/(4*sqr(n)-1);
p:=p*v;
end;
writeln('Количество элементов последовательности',n);
if p>pi then writeln('PI меньше') else writeln('Pi больше');
writeln('PI->',pi);
writeln('Произведение->',p);
readkey;
end.

[Carbon]

program program2;
uses crt;

function f(x:real):real; //Функция
begin
  f:=1/(25+x*x)
end;

var
  n,i:integer;
  a,b,res,x,h:real;

begin

//Ввод данных
clrscr;
writeln('Input a, b');
readln(a,b);
writeln('Input n');
readln(n);

res:=0; //Результат
x:=a; //Точка для определения высоты прямоугольника
h:=(b-a)/n; //Шаг

for i:=1 to n
begin
  res:=res+f(x); //Прибавляем высоту прямоугольника
  x:=x+h //Увеличиваем координату на шаг
end;

res:=h*res; //В конце умножаем на шаг

writeln('The result is ',res); //Вывод

readkey; //Ожидание нажатия клавиши
end.

[Venom]

Огромное спасибо!!!!!! Вы меня выручили!!!!!

Спасибо Tayfun
Спасибо Carbon

Я вам очень благодарен! И благодарен этому форуму, где всегда помогут в решении задачек!!
И вот решили, теперь надо самому все осмыслить и понять, как решается.

Биг СПС форуму: www.programmersforum.ru