я написал для икса косинус из b*c, исправь если нужно косинус b умножить на просто с ))

program pr;

var a,b,c:integer;

begin

readln(a,b,c);

writeln('x=',(Sqrt(abs(0.4*a-2))-3*cos(b*c)));

writeln('y=',(Ln(abs(a*b*c/2))-1/(3*a)));

end.