Question

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

Answer 1

Вторая:
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.