2 и 3 помогите умоляю прошу очень надо

Вторая: Var x:real; Begin Read(x); if x<=0 then write('y = 0') else if x<= 1 then write('y = ',x*x-x)          else write('y = ',x*x - sin(Pi*x*x -1)) End. Третья: Var S1,S2:real; Begin Write('Площадь круга = ');Read(S1); Write('Площадь квадрата = ');Read(S2); S1:=sqrt(S1/Pi); S2:=sqrt(S2); if S1<=S2/2 then write('уместится') else write('не уместится'); End.