Люди, помогите с паскалем плиз....не решается, вопрос Опции

[Серёга]

Народ, помогите пожалуйста найти ошибку, срочно . Мне эту хрень в субботу здавать. НЕ врубаюсь где тут ошибка...


Program_Laba1;
Uses Crt;
Var a,b,x,Y1,Yd,Y2,Z1,Z2: Real;
begin
ClrScr;
a:=5.3;
b:=2.1;
x:=0.75;
Y1:=(sqr(a)-sqr(b))*(exp(1/3.ln(a))-exp(1/3.ln(b)))/Yd;
Yd:=(exp(4/3.ln(a))+b*exp(1/3.ln(a))-a*exp(1/3.ln(b))-exp(4/3.ln(b)));
Y2:=a-b;
Z1:=Cos(4*x)-Sin(4*x)*Ctg(2*x);
Z2:=Cos(2*x)-2*Cos(x)**2;
WriteLn('Y1:='Y1);
ReadKey;
end.

[мисс_граффити]

в синтаксисе...
компилятор же все нехорошие места выделяет.
после program нужен пробел, что значит 1/3.ln(a) - я не знаю (и он тоже)... **2 - тож загадочная конструкция.
WriteLn('Y1:='Y1); - запятую пропустил

а вообще - классный подход. прийти, не регистрируясь нарушить 3 правила форума (заголовок должен быть информативным, код - в тегах, тема - в подходящем разделе)... кинуть код, который непонятно что должен делать - и попросить "найти ошибку".