я написал для икса косинус из 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.
