Вторая:
Var
x:real;
Begin
Read(x);
if x<=0 then write('y = 0')<br>else if x<= 1 then write('y = ',x*x-x)<br> 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('уместится')<br>else write('не уместится');
End.