Программа в Pascal

[Rawwwrr!]

Помогите пожалуйста с этой прогой:

Сделали прогу,но мне нужно без процедуры и функции,помогите пожалуйста:

program _1;
uses crt;
const
 hx=0.2;
 ha=0.8;
var
 a, x : real;

function ArcSin (x : real) : real;
begin {ArcSin}
 Arcsin:=Arctan(x/Sqrt(1-x*x));
end; {ArcSin}

function U (a,x : real) : real;
var {U}
 V1, V2, V3 : real;
begin
 if (sin(a)/x)>0 then
  V1:=sqrt(sin(a)/x)
 else
  V1:=maxint;
 V2:=sin(a)/x;
 V3:=exp(ln(a)/3)*ArcSin(x);
 if V1>V2 then
  V1:=V2;
 if V1>V3 then
  V1:=V3;
 U:=V1;
end; {U}

begin
 x:=0.1;
 writeln('a','x','U');
 while (x>=0.1) and (x<=0.4) do
 begin
  a:=2;
  while (a>=2) and (a<=4) do
  begin
   writeln(a:8:4, x:8:4, U(a,x):8:4);
   a:=a+ha;
  end;
  x:=x+hx;
 end;
 readln;
end.

Прошу без флуда пожалуйста...

[Сергeй]

Переделаю за 100 WMR

[Alex_FF]

program _1;
uses crt;
const
 hx=0.2;
 ha=0.8;
var
 a, x, U, V1, V2, V3 : real;

begin
 x:=0.1;
 writeln('a','x','U');
 while (x>=0.1) and (x<=0.4) do
 begin
  a:=2;
  while (a>=2) and (a<=4) do
  begin
    if (sin(a)/x)>0 then
      V1:=sqrt(sin(a)/x)
    else
      V1:=maxint;
    V2:=sin(a)/x;
    V3:=exp(ln(a)/3)*Arctan(x/Sqrt(1-x*x));
    if V1>V2 then
      V1:=V2;
    if V1>V3 then
      V1:=V3;
    U:=V1;
    writeln(a:8:4, x:8:4, U:8:4);
    a:=a+ha;
  end;
  x:=x+hx;
 end;
 readln;
end.