program B;
var i,D,j,M,K:real;
F:file;
begin
assign (F,'holy.in