Определить, при каком R объем цилиндра превысит значение 500 куб. м.

uses crt;
var h,r,d,v:real;
begin
clrscr;
h:=5;
r:=0.5;
d:=0.1;
v:=pi*r*r*h;
writeln('Вычисление объема цилиндра с H=5м Rнач=0.5м с шагом 0.1м');
while v<500 do
 begin
  r:=r+d;
  v:=pi*r*r*h;
 end;
writeln('Объем цилиндра превысит 500 м3 при R=',r:0:1,' и составит ',v:0:1);
readln
end.

uses crt;
const t=0.0001;
var x,dx,b,db,y:real;
    k:byte;
begin
clrscr;
writeln('Табулирование функции (e^x-b)^0.5+arctg((x/(b-x))^0.5)');
writeln('при -1<=b<=1 с шагом 0.1 0.39<=x<=0.99 с шагом 0.1');
writeln;
db:=0.1;
dx:=0.1;
b:=-1; k:=0;
while b<=1+t do
 begin
  x:=0.39;
  while x<=0.99+t do
   begin
    {если отрицательное под корнм или деление на число, близкое к нолю}
    if(exp(x)-b<0)or(abs(b-x)<t)or(x/(b-x)<0)then
     begin
      writeln('b=',b:4:1,'  x=',x:5:2,' функция не отределена');
      k:=k+1;
     end
    else
     begin
      y:=sqrt(exp(x)-b)+arctan(sqrt(x/(b-x)));
      writeln('b=',b:4:1,'  x=',x:5:2,'  y=',y:6:2);
      k:=k+1;
     end;
    if k mod 20=0 then
     begin
      write('Press Enter...');
      readln;
     end;
    x:=x+dx;
   end;
  b:=b+db;
 end;
readln
end.

uses crt;
const eps=0.0001;
var x,dx,s,t:real;
    i:byte;
begin
clrscr;
x:=0.1;
dx:=0.2;
while x<=1+eps do
 begin
  s:=1;
  t:=1;
  for i:=1 to 40 do
   begin
    t:=-t*x*x/(2*i*(2*i-1));
    s:=s+t;
   end;
  writeln('x=',x:0:1,' Summa=',s:6:2,'  Functia=',cos(x):6:2);
  x:=x+dx;
 end;
readln
end.