Помогите правильно и красиво оформить следующую программу:
PROGRAM Znachenie;
VAR
A, B, C, x, p , F, d, z, cos: real;
Begin
write('vvedite x=');
read(x);
write('vvedite p=');
read(p);
A:= sqr(ln(x)) * (Abs(1/x)+exp(4*ln(p))+2.6);
If (x=0) Then Writeln (' Delinie na nul zaprecheno ')
Else F:= abs(1/x ) +exp(4*ln(p))+2.6;
If (F<=0) Then Writeln (' Chislo ctojachee pod znakom logarifma ')
Else A:=sqr(ln(x))*(F);
B:=1-cos*(sqrt(Abs(exp(2*ln(p)))-8*sqrt(x)-1));
d:=sqrt(x);
If (d<0) Then Writeln (' Peremennaja iz otricatelnogo chisla ne suchestvuet')
Else
begin
z:=sqrt(Abs(p*p-8*d)-1);
B:=1-cos*(z);
end;
If (B=0) Then Writeln ('Delenie na 0 nevozmogno')
Else
begin
C:=A/B;
Writeln (C);
end;
End.