var a,b,c,d:real;
begin
readln(a,b,c,d);
writeln((5+a*(b-10))*(c-5*d));
end.
program name;
var
a,b,c,d,x:integer;
x:=(5+a (b-10))(c-5d);
writeln(x);
var a,b,c,d:real;
begin
readln(a,b,c,d);
writeln((5+a*(b-10))*(c-5*d));
end.
program name;
var
a,b,c,d,x:integer;
begin
readln(a,b,c,d);
x:=(5+a (b-10))(c-5d);
writeln(x);
end.