Помогите написать решение паскаль (Несложный)

Есть проблемка тут

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.

тут что то не так?

1 решил, 2 выше, в 3 тоже ошибка

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.