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

Question

Есть проблемка тут 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.

Сэйлар Мун · Accepted Answer

Да проблемка на лицо. 
1. не уважение к решателям и их глазам, которые они видимо должны сломать читая ваше фото 
2. Видимо уж коли так лень - то это на сайт freelance.ru где за умеренную плату все для вас сделают 
Мда могу посоветовать учебник по Паскалю так условия не пишут