Pascal
Написать программу, вычисляющую по заданному значению аргумента X значение функции Y по
соответствующей значению Х формуле :
1) Y = X+sin X, если -3 < Х < -1 ИЛИ 0 < X < 2;
2) Y = -X, если 4 < Х < 8 ИЛИ X > 15;
3) Y = X, при любом другом Х

Пример работы:

2 var  3 s: string;   4 begin  5  readln(s); 6  while  pos('с',s)> 0  do  delete(s,pos('с',s),1); 7writeln(s);   8 end.это точно

на каком япе? вот пример решения на паскале abc.

program test;

var s: string;

begin

  read(s);

  write(s);

end.