Расчитать значение x, используются функции и процедуры.

program EvgeniiSp;
 uses crt;
 var
  y:real;
  i:integer;
 
  procedure F(x:integer);
   begin
    y:=sqrt(x*x-3)/(2*x);
   end;
 
 begin
  clrscr;
  for i:=4 downto 1 do
   begin
    F(i*5);
    writeln('x=',i*5:2,'  F(x)=',y:0:5);
   end;
  readln
 end.

program EvgeniiSp;
 uses crt;
 var
  y:real;
  x:integer;
 begin
  clrscr;
  for x:=0 to 10 do
   begin
    y:=sin(x)+2;
    writeln('x=',x,'  F(x)=',y:4:2);
   end;
  readln
 end.

for i:=0 to 10 do
   begin
    y:=sin(x)+2;
    writeln('x=',x,'  F(x)=',y:4:2);
    x:=x+h;
   end;

program EvgeniiSp;
 uses crt;
 const
  h = 1;
 var
  y:real;
  x:integer;
 begin
  clrscr;
  x:=0;
  while x <= 10 do
   begin
    y:=sqr(x)+5;
    writeln('x=',x,'  y=',y:4:2);
    x:=x+h;
   end;
  readln
 end.

program EvgeniiSp;
 uses crt;
 const
  h = 1;
 var
  y:real;
  x:integer;
 begin
  clrscr;
  x:=0;
  repeat
   y:=sqrt(sqr(x)+5);
   writeln('x=',x,'  y=',y:4:2);
   x:=x+h;
  until x = 11;
  readln;
 end.