FOR i = 2 TO 20PRINT SIN(i)NEXT i
var x:real ;
begin
readln(x);
if x>3 then writeln((x*x+2)/(x-3))
else writeln (2*x*x-5)
end.
во всех но это не точно у меня так
3*log(pow(pow(sin(x),2)+2),1/5)