Question

Составить программу на языке Паскаль.

Answer 1

program schet;
var v, h, y: real;
begin
readln(h, y);
v:=1/5*sqrt(sqr(h)*sqr(h)+3*y)-5*abs(h)
writeln(v)
end.