Помогите в решении задач простых на паскале
Вот 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.