Помогите в решении задач простых на паскале

Question

<img title="Помогите в решении задач простых на паскале" src="//sprtqa.b-cdn.net/download/6beac2be6c910f8f129f71746a0f1739_i-3.jpg" > 
 
Вот 1 решил а во 2 и 3 ошибки

program labdop2; 
var 
c,n,y,R,Co:real; 
begin 
read(R,c,n); 
if R<=1 
then y:=1.5*(sqrt(c)) and Co:=(1/n)*(exp(y*ln(R))) 
else y:=1.3*(sqrt(c)) and Co:=(1/n)*(exp(y*ln(R))); 
writeln('y',y:10:3); 
end. 
 
тут что то не так? 
 
program labdop3; 
var 
A,Z,Zo,y:real; 
begin 
read(Z,y); 
if 0<=y<=90 
then Zo:=Z+((sin(y*pi)/180)) 
else Zo:=Z+(0.7+0.35)/(y/90); 
writeln('Zo',Z:10:3); 
end.

Валерия Сизова · Accepted Answer

Не так. Последовательное вычисление и логическая операция and - совершенно разные вещи. 
 
program labdop2; 
var c,n,y,r,p:real; 
begin 
write('R C n ?'); read(r,c,n); 
if r<=1 then p:=1.5 else p:=1.3 
writeln('C0=',exp(y*ln(p*sqrt(c)))/n:0:6); readln 
end. 
 
program labdop3; 
var Z,alpha:real; 
begin 
write('Z alpha ? '); readln(Z,alpha); 
if (0<=alpha)and(alpha<=90) then writeln(sin(alpha*pi/180)+Z:0:6) 
else if (90< alpha)and(alpha< 180) then writeln(0.7+0.35*alpha/90+Z:0:6) 
else write('alpha must be between 0 and 180!'); 
readln 
end.