Помогите написать эти математические формулы в Pascal
 

Помогите пожалуйста написать эти математические формулы в Pascal
Вложение 130700
Вложение 130701
ПОЖАЛУЙСТА,ПОМОГИТЕ,ВЫ ОЧЕНЬ ПОМОЖЕТЕ!:tehnari_ru_942:

if x<0 then y:=1/Sqr(x) else y:=Sqr(x);

if x<-Pi then y:=-1 else if x>Pi then y:=1 else y:=cos(x);

И не стыдно?

очень стыдно. Но паскаль мы не изучали,и я даже понятия не имею как в нем работать. Спасибо большое за помощь!))