программа в pascal abc

[Levonchik]

ребята,помогите подредактировать программу,ошибки выдаёт,зачёт висит,а в чём дело не понимаю

program function:uvt;
var x,y,z,u,v,t,:real;
begin
x:=readln(x);
y:=readln(y);
z:=readln(z);
u:=1-cos(2-(exp(3)*ln(2))/(exp(2)*ln(y)-exp(2)*ln(2)/sin(2-(exp(3)*ln(2))/(exp(2)ln(y)-exp(2)*ln(2));
v:=exp(exp(2)*ln(-x))*ln(exp())+exp(exp(2)*ln(y))*ln( exp());
if (exp(2)*ln(u)+exp(2)*ln(v))<(exp(2) *ln(y)+exp(2)*ln(y)+exp(2)*ln(2))
then
t=arctan((exp(2)*ln(u)+exp(2)*ln(v) )/sqrt(1-sqr(exp(2)*ln(u)+exp(2)*ln(v));
writeln(u);writeln(v);writeln(t);
if(exp(2)*ln(u)+exp(2)*ln(v))>=(exp (2)*ln(y)+exp(2)*ln(2))
then
t=ln(v+u)/ln(10);
writeln(u);writeln(v);writeln(t);
end.


условие во вложенной фотографии.спасибо

[VIK_aka_TOR]

в старой теме вам ответили... и не нужно плодить темы... с одним и тем же заданием...
к тому же оформляйте код при помощи соответствующего тэга... это кнопочка # (решетка)