Задание 4
var
m, n:integer;
begin
readln(m,n);
writeln(m*720+n*520+170);
end.
Задание 5
a,b,c:real;
readln(a,b,c);
writeln((sqr(a)*sqr(b))/sqrt(2*a*c));
