На паскале...да запросто:
Код:
Program pr;
var
a,b,c,d: integer;
y:real;
begin
Writeln('Введи значение a');
Readln(a);
Writeln('Введи значение b');
Readln(b);
Writeln('Введи значение c');
Readln(c);
Writeln('Введи значение d');
Readln(d);
y:=sqrt(abs(3*a*a-b))-sqr((c-d))*(c-d);
writeln(y);
end.
