program tpk (input, output);
var
    Y: real;

begin { tpk }
    if 4000.0 >= Y
        then begin
        end
end.