Var
 x,c:Real;
Begin
 Write('x = ');
 Readln(x);
 Write('c = ');
 Readln(c);
 if x<=0.2 then writeln('f = ',(Abs(x)+c*x-4):0:3)
 else writeln('f = ',(Sqr(Sin(x)-1)):0:3);
 Readln
End.

Var
 K,M,N:Word;
 A,B,P,P1:Real;
Begin
 Write('Количество коров: ');
 Readln(K);
 Write('Количество лошадей: ');
 Readln(M);
 Write('Норма кормления коровы: ');
 Readln(A);
 Write('Норма кормления лошади: ');
 Readln(B);
 Write('Количество дней: ');
 Readln(N);
 Write('Наличный запас сена: ');
 Readln(P);
 P1:=(1.0*A*K+1.0*B*M)*N;
 If (P-P1)<0 then writeln('Не хватает ',Trunc(P1-P)+1,' кг сена')
 else writeln('Сена хватит');
 Readln
End.

Var
 S,x:Real;
 i:Byte;
Begin
 Write('x = ');
 Readln(x);
 S:=0;
 For i:=3 to 20 do
  S:=S+Abs(x+1.0*i);
 Writeln('S = ',S:0:3);
 Readln
End.