Не работает программа

[ПавелОрлов]

PROGRAM Naxogdenie; znachenie C;
VAR
A, B, C, x, p , f, d, z, cos: real;
Begin
A:= sqr(ln(x)) * (Abs(1/x)+exp(4*ln(p))+2.6);
 If <x=0> Then
                         begin
               Writeln<' Delinie na nul zaprecheno '>;
                     end;
 Else
                 begin
         F:=Abs<1/x > +exp(4*ln(p))+2.6;
               end;
 If<F<=0> Then
                      begin
              Writeln<' Chislo ctojachee pod znakom logarifma '>;
                  end;
Else
                begin
 A:=sqr(ln(x))<F>;
            end;
            Begin
 B:=1-cos*(sqrt(Abs(exp(2*ln(p)))-8*sqrt(x)-1);
 d:=sqrt(x);
If <d<0> Then
                         begin
       Writeln <' Peremennaja iz otricatelnogo chisla ne suchestvuet'>;
           end;
 Else
                      begin
            z:=sqrt<Abs<p*p-8*d>-1>;
              B:=1-cos<z>;
                   end;
 If <B=0> Then
                begin
         Writeln <'Delenie na 0 nevozmogno'>;
                end;
Else
            begin
             C:=A/B;
            Writeln <C>;
            end;
            End.
End.

[ACE Valery]

А что конкретно она должна делать и как именно не работает, нам самим нужно догадаться?

[Лубышев]

Очевидно переменные не инициализированы

[Stilet]

znachenie C;

Это что? Компилятор на это ругнется.

<x=0>

А это что?
Ты откуда это списал? Если из учебника то почему так бездумно?

[ПавелОрлов]

Мне надо найти значение С

[Stilet]

Тогда тебе придется все поисправлять, ибо синтаксических ошибок там море.

[Poma][a]

Кросспостинг запрещен! Вот Ваша тема

[Stilet]

Мдя уж....