URGEEENT AJUTATIMAAAAAAAAAA PASCAL SAU C++ !!!!!!!!!!!!!

Răspuns:
1).
program T;
var x,y:integer;
Q:real;
begin
write('x=');
readln(x);
write('y=');
readln(y);
Q:=sqrt(4*x*x)+abs(5*y+1);
writeln(Q);
end.