//1
begin
var x:=readreal ('Введите x: ');
if x>1,1 then write (9-x) else write ('(sin(3*x))/(sqr(sqr(x))+1)');
end.

//2
begin
for var i:=random(20)-30 to random (20)+2 do println ('f(x) =', -1*cos(2*i));
end.

//3
var
arr: array of integer;
count: byte;
begin
setlength (arr, 10);
for var i:=0 to length (arr)-1 do arr[i]:=random (201)-100;
for var i:=0 to length (arr)-1 do if (arr[i] mod  2)=0 then inc (count);
write (count);
end.